kvm-unit-tests/scripts/get_maintainer.pl

176 	my $line = $_;
178 	$line =~ s/\s*\n?$//g;
179 	$line =~ s/^\s*//g;
180 	$line =~ s/\s+/ /g;
182 	next if ($line =~ m/^\s*#/);
183 	next if ($line =~ m/^\s*$/);
185 	my @words = split(" ", $line);
201 	my $line = $_;
203 	$line =~ s/\s*\n?$//;
204 	$line =~ s/^\s*//;
205 	$line =~ s/\s+$//;
206 	$line =~ s/#.*$//;
208 	next if ($line =~ m/^\s*$/);
209 	if (rfc822_valid($line)) {
210 	    push(@ignore_emails, $line);
333 	my $line = $_;
334 	chomp $line;
336 	if ($line =~ m/^([A-Z]):\s*(.*)/) {
354 	    push(@typevalue, $line);
357 	    push(@self_test_info, {file=>$file, linenr=>$i, line=>$line});
535 		foreach my $line (keys %keyword_hash) {
536 		    if ($text =~ m/$keyword_hash{$line}/x) {
537 			push(@keyword_tvi, $line);
583 		foreach my $line (keys %keyword_hash) {
584 		    if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
585 			push(@keyword_tvi, $line);
657 	    $x->{line} =~ /^\S[^:]/ &&
659 	    $self_test_info[$index]->{line} =~ /^([A-Z]):\s*\S/) {
667 		push(@section_headers, $x->{line});
671 		   $self_test_info[$nextline]->{line} =~ /^([A-Z]):\s*(\S.*)/) {
695 	next if ($x->{line} !~ /^([A-Z]):\s*(.*)/);
786 	my $line = $typevalue[$i];
787 	if ($line =~ m/^([A-Z]):\s*(.*)/) {
804 	my $line = $typevalue[$i];
805 	if ($line =~ m/^([A-Z]):\s*(.*)/) {
853 		my $line = $typevalue[$i];
854 		if ($line =~ m/^([A-Z]):\s*(.*)/) {
868 		    my $line = $typevalue[$i];
869 		    if ($line =~ m/^([A-Z]):\s*(.*)/) {
899 	foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
900 	    add_categories($line);
903 		my $start = find_starting_index($line);
904 		my $end = find_ending_index($line);
906 		    my $line = $typevalue[$i];
907 		    if ($line =~ /^[FX]:/) {		##Restore file patterns
908 			$line =~ s/([^\\])\.([^\*])/$1\?$2/g;
909 			$line =~ s/([^\\])\.$/$1\?/g;	##Convert . back to ?
910 			$line =~ s/\\\./\./g;       	##Convert \. to .
911 			$line =~ s/\.\*/\*/g;       	##Convert .* to *
913 		    my $count = $line =~ s/^([A-Z]):/$1:\t/g;
915 			print("$line\n");
927 	foreach my $line (@keyword_tvi) {
928 	    add_categories($line);
1333     my ($line, $role) = @_;
1335     my ($name, $address) = parse_email($line);
1372     my ($line, $role) = @_;
1374     my ($name, $address) = parse_email($line);
1428     my ($line) = @_;
1430     my ($name, $address) = parse_email($line);
1458     foreach my $line (@addresses) {
1459 	push(@mapped_emails, mailmap_email($line));
1564     foreach my $line (@lines) {
1565 	if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1586     foreach my $line (@lines) {
1587 	if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
2022     foreach my $line (@lines) {
2023 	if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2028 	push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
2029 	push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
2054     foreach my $line (@lines) {
2055 	$commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
2056 	$subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
2057 	if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
2058 	    my @signatures = ($line);
2108     foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
2109 	my $sign_offs = $hash{$line};
2113 	next if (ignore_email_address($line));
2118 	push_email_address($line, '');
2121 	    add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
2123 	    add_role($line, $role);
2279 		foreach my $line (@lines) {
2280 		    if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2444 	foreach my $line (@parms) {
2445 	    print("${line}\n");