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