build/scripts/get_maintainer.pl

162 	my $line = $_;
164 	$line =~ s/\s*\n?$//g;
165 	$line =~ s/^\s*//g;
166 	$line =~ s/\s+/ /g;
168 	next if ($line =~ m/^\s*#/);
169 	next if ($line =~ m/^\s*$/);
171 	my @words = split(" ", $line);
274     my $line = $_;
276     if ($line =~ m/^(\C):\s*(.*)/) {
294 	$line =~ s/\n$//g;
295 	push(@typevalue, $line);
406 		foreach my $line (keys %keyword_hash) {
407 		    if ($text =~ m/$keyword_hash{$line}/x) {
408 			push(@keyword_tvi, $line);
445 		foreach my $line (keys %keyword_hash) {
446 		    if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
447 			push(@keyword_tvi, $line);
510 	my $line = $typevalue[$i];
511 	if ($line =~ m/^(\C):\s*(.*)/) {
528 	my $line = $typevalue[$i];
529 	if ($line =~ m/^(\C):\s*(.*)/) {
577 		my $line = $typevalue[$i];
578 		if ($line =~ m/^(\C):\s*(.*)/) {
592 		    my $line = $typevalue[$i];
593 		    if ($line =~ m/^(\C):\s*(.*)/) {
619 	foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
620 	    add_categories($line);
623 		my $start = find_starting_index($line);
624 		my $end = find_ending_index($line);
626 		    my $line = $typevalue[$i];
627 		    if ($line =~ /^[FX]:/) {		##Restore file patterns
628 			$line =~ s/([^\\])\.([^\*])/$1\?$2/g;
629 			$line =~ s/([^\\])\.$/$1\?/g;	##Convert . back to ?
630 			$line =~ s/\\\./\./g;       	##Convert \. to .
631 			$line =~ s/\.\*/\*/g;       	##Convert .* to *
633 		    $line =~ s/^([A-Z]):/$1:\t/g;
634 		    print("$line\n");
643 	foreach my $line (@keyword_tvi) {
644 	    add_categories($line);
1073     my ($line, $role) = @_;
1075     my ($name, $address) = parse_email($line);
1112     my ($line, $role) = @_;
1114     my ($name, $address) = parse_email($line);
1168     my ($line) = @_;
1170     my ($name, $address) = parse_email($line);
1198     foreach my $line (@addresses) {
1199 	push(@mapped_emails, mailmap_email($line));
1301     foreach my $line (@lines) {
1302 	if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1323     foreach my $line (@lines) {
1324 	if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
1733     foreach my $line (@lines) {
1734 	if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1739 	push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1740 	push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1765     foreach my $line (@lines) {
1766 	$commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1767 	$subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1768 	if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
1769 	    my @signatures = ($line);
1819     foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
1820 	my $sign_offs = $hash{$line};
1828 	push_email_address($line, '');
1831 	    add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
1833 	    add_role($line, $role);
1930 		foreach my $line (@lines) {
1931 		    if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2060 	foreach my $line (@parms) {
2061 	    print("${line}\n");