19 print STDERR "Checking <$name>..."
22 qw(git log -1 --no-merges),
26 print STDERR "opening pipe to read from git log failed\n"
28 $map->{$name} = $name;
34 print STDERR "read <$line> from git log\n"
36 $map->{$name} = $line;
38 print STDERR "read false ($line) from git log\n"
40 $map->{$name} = $name;
49 sub add_more_bylines {
50 if (!defined $append) {
51 my %names = map { $_->[1] => 1 } @more;
54 find_author(\%map, keys (%names));
56 my ($tag, $name) = @$_;
58 push @append, "$tag: $map{$name}";
61 $append = join("\n", @append) . "\n";
71 exit 1 unless (GetOptions("signed-off-by=s" => \&accumulate,
72 "acked-by=s" => \&accumulate,
73 "reviewed-by=s" => \&accumulate,
74 "tested-by=s" => \&accumulate,
75 "helped-by=s" => \&accumulate,
76 "check-only!" => \$check_only,
86 if ($state == parsing) {
87 if (/^[-A-Za-z]+-by: /i || /^Cc: /i) {
90 } elsif ($state == waiting) {
91 if (/^[-A-Za-z]+-by: /i || /^Cc: /i) {