Revision d2d66df0
b/devel/review | ||
---|---|---|
38 | 38 |
grep -q '^Reviewed-by: ' "$msgfile" && return |
39 | 39 |
|
40 | 40 |
perl -i -e ' |
41 |
my $reviewer = $ENV{"REVIEWER"}; |
|
42 |
defined($reviewer) or $reviewer = ""; |
|
41 | 43 |
my $sob = 0; |
42 | 44 |
while (<>) { |
43 | 45 |
if ($sob == 0 and m/^Signed-off-by:/) { |
44 | 46 |
$sob = 1; |
45 | 47 |
|
46 | 48 |
} elsif ($sob == 1 and not m/^Signed-off-by:/) { |
47 |
print "Reviewed-by: $REVIEWER\n";
|
|
49 |
print "Reviewed-by: $reviewer\n";
|
|
48 | 50 |
$sob = -1; |
49 | 51 |
} |
50 | 52 |
|
... | ... | |
52 | 54 |
} |
53 | 55 |
|
54 | 56 |
if ($sob == 1) { |
55 |
print "Reviewed-by: \n"; |
|
57 |
print "Reviewed-by: $reviewer\n";
|
|
56 | 58 |
} |
57 | 59 |
' "$msgfile" |
58 | 60 |
} |
Also available in: Unified diff