Lines Matching refs:line
179 my $line = $_;
181 $line =~ s/\s*\n?$//g;
182 $line =~ s/^\s*//g;
183 $line =~ s/\s+/ /g;
185 next if ($line =~ m/^\s*#/);
186 next if ($line =~ m/^\s*$/);
188 my @words = split(" ", $line);
204 my $line = $_;
206 $line =~ s/\s*\n?$//;
207 $line =~ s/^\s*//;
208 $line =~ s/\s+$//;
209 $line =~ s/#.*$//;
211 next if ($line =~ m/^\s*$/);
212 if (rfc822_valid($line)) {
213 push(@ignore_emails, $line);
321 my $line = $_;
323 if ($line =~ m/^([A-Z]):\s*(.*)/) {
341 $line =~ s/\n$//g;
342 push(@typevalue, $line);
490 foreach my $line (keys %keyword_hash) {
491 if ($text =~ m/$keyword_hash{$line}/x) {
492 push(@keyword_tvi, $line);
529 foreach my $line (keys %keyword_hash) {
530 if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
531 push(@keyword_tvi, $line);
603 my $line = $typevalue[$i];
604 if ($line =~ m/^([A-Z]):\s*(.*)/) {
621 my $line = $typevalue[$i];
622 if ($line =~ m/^([A-Z]):\s*(.*)/) {
670 my $line = $typevalue[$i];
671 if ($line =~ m/^([A-Z]):\s*(.*)/) {
685 my $line = $typevalue[$i];
686 if ($line =~ m/^([A-Z]):\s*(.*)/) {
716 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
717 add_categories($line);
720 my $start = find_starting_index($line);
721 my $end = find_ending_index($line);
723 my $line = $typevalue[$i];
724 if ($line =~ /^[FX]:/) { ##Restore file patterns
725 $line =~ s/([^\\])\.([^\*])/$1\?$2/g;
726 $line =~ s/([^\\])\.$/$1\?/g; ##Convert . back to ?
727 $line =~ s/\\\./\./g; ##Convert \. to .
728 $line =~ s/\.\*/\*/g; ##Convert .* to *
730 my $count = $line =~ s/^([A-Z]):/$1:\t/g;
732 print("$line\n");
742 foreach my $line (@keyword_tvi) {
743 add_categories($line);
1200 my ($line, $role) = @_;
1202 my ($name, $address) = parse_email($line);
1239 my ($line, $role) = @_;
1241 my ($name, $address) = parse_email($line);
1295 my ($line) = @_;
1297 my ($name, $address) = parse_email($line);
1325 foreach my $line (@addresses) {
1326 push(@mapped_emails, mailmap_email($line));
1439 foreach my $line (@lines) {
1440 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1461 foreach my $line (@lines) {
1462 if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
1871 foreach my $line (@lines) {
1872 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1877 push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1878 push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1903 foreach my $line (@lines) {
1904 $commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1905 $subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1906 if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
1907 my @signatures = ($line);
1957 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
1958 my $sign_offs = $hash{$line};
1962 next if (ignore_email_address($line));
1967 push_email_address($line, '');
1970 add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
1972 add_role($line, $role);
2132 foreach my $line (@lines) {
2133 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2280 foreach my $line (@parms) {
2281 print("${line}\n");