Lines Matching refs:line
171 my $line = $_;
173 $line =~ s/\s*\n?$//g;
174 $line =~ s/^\s*//g;
175 $line =~ s/\s+/ /g;
177 next if ($line =~ m/^\s*#/);
178 next if ($line =~ m/^\s*$/);
180 my @words = split(" ", $line);
196 my $line = $_;
198 $line =~ s/\s*\n?$//;
199 $line =~ s/^\s*//;
200 $line =~ s/\s+$//;
201 $line =~ s/#.*$//;
203 next if ($line =~ m/^\s*$/);
204 if (rfc822_valid($line)) {
205 push(@ignore_emails, $line);
306 my $line = $_;
308 if ($line =~ m/^([A-Z]):\s*(.*)/) {
326 $line =~ s/\n$//g;
327 push(@typevalue, $line);
439 foreach my $line (keys %keyword_hash) {
440 if ($text =~ m/$keyword_hash{$line}/x) {
441 push(@keyword_tvi, $line);
478 foreach my $line (keys %keyword_hash) {
479 if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
480 push(@keyword_tvi, $line);
552 my $line = $typevalue[$i];
553 if ($line =~ m/^([A-Z]):\s*(.*)/) {
570 my $line = $typevalue[$i];
571 if ($line =~ m/^([A-Z]):\s*(.*)/) {
619 my $line = $typevalue[$i];
620 if ($line =~ m/^([A-Z]):\s*(.*)/) {
634 my $line = $typevalue[$i];
635 if ($line =~ m/^([A-Z]):\s*(.*)/) {
665 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
666 add_categories($line);
669 my $start = find_starting_index($line);
670 my $end = find_ending_index($line);
672 my $line = $typevalue[$i];
673 if ($line =~ /^[FX]:/) { ##Restore file patterns
674 $line =~ s/([^\\])\.([^\*])/$1\?$2/g;
675 $line =~ s/([^\\])\.$/$1\?/g; ##Convert . back to ?
676 $line =~ s/\\\./\./g; ##Convert \. to .
677 $line =~ s/\.\*/\*/g; ##Convert .* to *
679 $line =~ s/^([A-Z]):/$1:\t/g;
680 print("$line\n");
689 foreach my $line (@keyword_tvi) {
690 add_categories($line);
1146 my ($line, $role) = @_;
1148 my ($name, $address) = parse_email($line);
1185 my ($line, $role) = @_;
1187 my ($name, $address) = parse_email($line);
1241 my ($line) = @_;
1243 my ($name, $address) = parse_email($line);
1271 foreach my $line (@addresses) {
1272 push(@mapped_emails, mailmap_email($line));
1385 foreach my $line (@lines) {
1386 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1407 foreach my $line (@lines) {
1408 if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
1817 foreach my $line (@lines) {
1818 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1823 push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1824 push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1849 foreach my $line (@lines) {
1850 $commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1851 $subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1852 if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
1853 my @signatures = ($line);
1903 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
1904 my $sign_offs = $hash{$line};
1908 next if (ignore_email_address($line));
1913 push_email_address($line, '');
1916 add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
1918 add_role($line, $role);
2078 foreach my $line (@lines) {
2079 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2208 foreach my $line (@parms) {
2209 print("${line}\n");