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;
52 my %names = map { $_->[1] => 1 } @more;
55 find_author
(\
%map, keys (%names));
57 my ($tag, $name) = @
$_;
63 push @append, "$tag: $map{$name}";
66 $append = join("\n", @append) . "\n";
72 sub add_more_bylines
{
73 if (!defined $append) {
81 exit 1 unless (GetOptions
("signed-off-by=s" => \
&accumulate
,
82 "acked-by=s" => \
&accumulate
,
83 "reviewed-by=s" => \
&accumulate
,
84 "tested-by=s" => \
&accumulate
,
85 "helped-by=s" => \
&accumulate
,
86 "check-only!" => \
$check_only,
87 "mine=s" => \
&accumulate
,
100 if ($state == parsing
) {
101 if (/^[-A-Za-z]+-by: /i || /^Cc: /i) {
104 } elsif ($state == waiting
) {
105 if (defined $mine && /^Signed-off-by: \Q$mine\E/) {
108 } elsif (/^[-A-Za-z]+-by: /i || /^Cc: /i) {
113 print "Signed-off-by: $mine\n";