Lines Matching refs:line
190 my $line = $_;
192 $line =~ s/\s*\n?$//g;
193 $line =~ s/^\s*//g;
194 $line =~ s/\s+/ /g;
196 next if ($line =~ m/^\s*#/);
197 next if ($line =~ m/^\s*$/);
199 my @words = split(" ", $line);
215 my $line = $_;
217 $line =~ s/\s*\n?$//;
218 $line =~ s/^\s*//;
219 $line =~ s/\s+$//;
220 $line =~ s/#.*$//;
222 next if ($line =~ m/^\s*$/);
223 if (rfc822_valid($line)) {
224 push(@ignore_emails, $line);
353 my $line = $_;
354 chomp $line;
356 if ($line =~ m/^([A-Z]):\s*(.*)/) {
374 push(@typevalue, $line);
377 push(@self_test_info, {file=>$file, linenr=>$i, line=>$line});
555 foreach my $line (keys %keyword_hash) {
556 if ($text =~ m/$keyword_hash{$line}/x) {
557 push(@keyword_tvi, $line);
603 foreach my $line (keys %keyword_hash) {
604 if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
605 push(@keyword_tvi, $line);
677 $x->{line} =~ /^\S[^:]/ &&
679 $self_test_info[$index]->{line} =~ /^([A-Z]):\s*\S/) {
687 push(@section_headers, $x->{line});
691 $self_test_info[$nextline]->{line} =~ /^([A-Z]):\s*(\S.*)/) {
715 next if ($x->{line} !~ /^([A-Z]):\s*(.*)/);
806 my $line = $typevalue[$i];
807 if ($line =~ m/^([A-Z]):\s*(.*)/) {
824 my $line = $typevalue[$i];
825 if ($line =~ m/^([A-Z]):\s*(.*)/) {
873 my $line = $typevalue[$i];
874 if ($line =~ m/^([A-Z]):\s*(.*)/) {
888 my $line = $typevalue[$i];
889 if ($line =~ m/^([A-Z]):\s*(.*)/) {
919 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
920 add_categories($line);
923 my $start = find_starting_index($line);
924 my $end = find_ending_index($line);
926 my $line = $typevalue[$i];
927 if ($line =~ /^[FX]:/) { ##Restore file patterns
928 $line =~ s/([^\\])\.([^\*])/$1\?$2/g;
929 $line =~ s/([^\\])\.$/$1\?/g; ##Convert . back to ?
930 $line =~ s/\\\./\./g; ##Convert \. to .
931 $line =~ s/\.\*/\*/g; ##Convert .* to *
933 my $count = $line =~ s/^([A-Z]):/$1:\t/g;
935 print("$line\n");
947 foreach my $line (@keyword_tvi) {
948 add_categories($line);
1397 my ($line, $role) = @_;
1399 my ($name, $address) = parse_email($line);
1436 my ($line, $role) = @_;
1438 my ($name, $address) = parse_email($line);
1492 my ($line) = @_;
1494 my ($name, $address) = parse_email($line);
1522 foreach my $line (@addresses) {
1523 push(@mapped_emails, mailmap_email($line));
1636 foreach my $line (@lines) {
1637 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1658 foreach my $line (@lines) {
1659 if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
2094 foreach my $line (@lines) {
2095 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2100 push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
2101 push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
2126 foreach my $line (@lines) {
2127 $commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
2128 $subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
2129 if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
2130 my @signatures = ($line);
2180 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
2181 my $sign_offs = $hash{$line};
2185 next if (ignore_email_address($line));
2190 push_email_address($line, '');
2193 add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
2195 add_role($line, $role);
2355 foreach my $line (@lines) {
2356 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2520 foreach my $line (@parms) {
2521 print("${line}\n");