Lines Matching full:s
108 'GitSubject: %s%n' .
117 'GitSubject: %s%n' .
126 'GitSubject: %s%n"' .
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*$/);
203 $line =~ s/\s*\n?$//;
204 $line =~ s/^\s*//;
205 $line =~ s/\s+$//;
206 $line =~ s/#.*$//;
208 next if ($line =~ m/^\s*$/);
234 'git-since=s' => \$email_git_since,
235 'hg-since=s' => \$email_hg_since,
245 's!' => \$email_subscriber_list,
249 'separator=s' => \$output_separator,
255 'letters=s' => \$letters,
262 'mpath|maintainer-path=s' => \$maintainer_path,
263 'self-test:s' => \$self_test,
336 if ($line =~ m/^([A-Z]):\s*(.*)/) {
342 $value =~ s@\.@\\\.@g; ##Convert . to \.
343 $value =~ s/\*/\.\*/g; ##Convert * to .*
344 $value =~ s/\?/\./g; ##Convert ? to .
347 $value =~ s@([^/])$@$1/@;
353 } elsif (!(/^\s*$/ || /^\s*\#/)) {
383 …$path =~ s@^~([^/]*)@ $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($<))[7])@…
423 …my @poss_addr = $text =~ m$[A-Za-zÀ-ÿ\"\' \,\.\+-]*\s*[\,]*\s*[\(\<\{]{0,1}[A-Za-z0-9_\.\+-]+\@[A-…
448 s/#.*$//; #strip comments
449 s/^\s+|\s+$//g; #trim
451 next if (/^\s*$/); #skip empty lines
463 $real_name =~ s/\s+$//;
467 } elsif (/^<([^>]+)>\s*<([^>]+)>$/) {
473 } elsif (/^(.+)<([^>]+)>\s*<([^>]+)>$/) {
478 $real_name =~ s/\s+$//;
484 } elsif (/^(.+)<([^>]+)>\s*(.+)\s*<([^>]+)>$/) {
490 $real_name =~ s/\s+$//;
494 $wrong_name =~ s/\s+$//;
517 $file =~ s@([^/])$@$1/@;
526 $file =~ s/^\Q${cur_path}\E//; #strip any absolute path
527 $file =~ s/^\Q${lk_path}\E//; #or the path to the lk tree
558 if (m/^ mode change [0-7]+ => [0-7]+ (\S+)\s*$/) {
561 } elsif (m/^rename (?:from|to) (\S+)\s*$/) {
564 } elsif (m/^diff --git a\/(\S+) b\/(\S+)\s*$/) {
569 } elsif (m/^Fixes:\s+([0-9a-fA-F]{6,40})/) {
571 } elsif (m/^\+\+\+\s+(\S+)/ or m/^---\s+(\S+)/) {
573 $filename =~ s@^[^/]*/@@;
574 $filename =~ s@\n@@;
657 $x->{line} =~ /^\S[^:]/ &&
659 $self_test_info[$index]->{line} =~ /^([A-Z]):\s*\S/) {
671 $self_test_info[$nextline]->{line} =~ /^([A-Z]):\s*(\S.*)/) {
674 if ($type eq "S") {
695 next if ($x->{line} !~ /^([A-Z]):\s*(.*)/);
703 $value =~ s@\.@\\\.@g; ##Convert . to \.
704 $value =~ s/\*/\.\*/g; ##Convert * to .*
705 $value =~ s/\?/\./g; ##Convert ? to .
708 $value =~ s@([^/])$@$1/@;
742 } elsif ($value !~ /^(?:git|quilt|hg)\s+\S/) {
744 } elsif ($value =~ /^git\s+(\S+)(\s+([^\(]+\S+))?/) {
755 } elsif ($value =~ /^(?:quilt|hg)\s+(https?:\S+)/) {
787 if ($line =~ m/^([A-Z]):\s*(.*)/) {
790 if ($type eq 'S') {
805 if ($line =~ m/^([A-Z]):\s*(.*)/) {
854 if ($line =~ m/^([A-Z]):\s*(.*)/) {
869 if ($line =~ m/^([A-Z]):\s*(.*)/) {
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;
1018 --m => include maintainer(s) if any
1019 --r => include reviewer(s) if any
1021 --l => include list(s) if any
1022 --moderated => include moderated lists(s) if any (default: true)
1023 --s => include subscriber only list(s) if any (default: false)
1029 --scm => print SCM tree(s) if any
1032 --web => print website(s) if any
1098 } elsif ($formatted_email =~ /^\s*<(.+\@\S*)>.*$/) {
1100 } elsif ($formatted_email =~ /^(.+\@\S*).*$/) {
1104 $name =~ s/^\s+|\s+$//g;
1105 $name =~ s/^\"|\"$//g;
1106 $address =~ s/^\s+|\s+$//g;
1109 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
1121 $name =~ s/^\s+|\s+$//g;
1122 $name =~ s/^\"|\"$//g;
1123 $address =~ s/^\s+|\s+$//g;
1126 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
1148 if (($tv =~ m/^([A-Z]):\s*(.*)/)) {
1162 if (!($tv =~ m/^([A-Z]):\s*(.*)/)) {
1176 if (!($tv =~ m/^([A-Z]):\s*(.*)/)) {
1193 $subsystem =~ s/\s*$//;
1211 if ($tv =~ m/^([A-Z]):\s*(.*)/) {
1214 if ($ptype eq "S") {
1261 if ($tv =~ m/^([A-Z]):\s*(.*)/) {
1272 if ($list_address =~ m/([^\s]+)\s+(.*)$/) {
1315 } elsif ($ptype eq "S") {
1485 $output =~ s/^\s*//gm;
1506 s/\s*(.*):.*/$1/ for (@type);
1509 s/\s*.*:\s*(.+)\s*/$1/ for (@signature_lines);
1534 $stat_pattern =~ s/(\$\w+)/$1/eeg; #interpolate $stat_pattern
1606 $cmd =~ s/(\$\w+)/$1/eeg; #interpolate $cmd
1627 $cmd =~ s/(\$\w+)/$1/eeg; #interpolate $cmd
1632 $cmd =~ s/(\$\w+)/$1/eeg; #interpolate $cmd
1637 $commit =~ s/^\^//g;
1653 warn("Try kvm-unit-tests's latest git repository using:\n");
1682 $cmd =~ s/(\$\w+)/$1/eeg; #substitute variables in $cmd
1721 printf STDERR "\n%1s %2s %-65s",
1740 printf STDERR "%1s %2d %-65s", $sel, $count + 1, $email;
1743 printf STDERR "\n %s\n", $role;
1795 "\n#(toggle), A#(author), S#(signed) *(all), ^(none), O(options), Y(approve): ";
1844 } elsif (lc($str) eq "s") {
1860 } elsif ($sel eq "s") {
1881 if ($str eq "s") {
2143 $cmd =~ s/(\$\w+)/$1/eeg; # interpolate $cmd
2161 $stat_pattern =~ s/(\$\w+)/$1/eeg; #interpolate $stat_pattern
2229 $cmd =~ s/(\$\w+)/$1/eeg; #substitute variables in $cmd
2247 $cmd =~ s/(\$\w+)/$1/eeg; #substitute variables in $cmd
2270 $cmd =~ s/(\$\w+)/$1/eeg; #substitute variables in $cmd
2296 $cmd =~ s/(\$\w+)/$1/eeg; #interpolate $cmd
2333 $cmd =~ s/(\$\w+)/$1/eeg; # interpolate $cmd
2351 $cmd =~ s/(\$\w+)/$1/eeg; # interpolate $cmd
2381 $email =~ s/[\(\<\{]{0,1}([A-Za-z0-9_\.\+-]+\@[A-Za-z0-9\.-]+)[\)\>\}]{0,1}/\<$1\>/g;
2485 my $group = "$phrase:$rfc822_lwsp*(?:$mailbox(?:,\\s*$mailbox)*)?;\\s*";
2492 my $s = shift;
2497 while ($s =~ s/^((?:[^"\\]|\\.)*
2500 return $s;
2506 my $s = rfc822_strip_comments(shift);
2512 return $s =~ m/^$rfc822re$/so && $s =~ m/^$rfc822_char*$/;
2526 my $s = rfc822_strip_comments(shift);
2535 if ($s =~ m/^(?:$rfc822re)?(?:,(?:$rfc822re)?)*$/so &&
2536 $s =~ m/^$rfc822_char*$/) {
2537 while ($s =~ m/(?:^|,$rfc822_lwsp*)($rfc822re)/gos) {