diff options
| -rwxr-xr-x | CVSROOT/cvsedit | 5 | ||||
| -rwxr-xr-x | CVSROOT/log_accum.pl | 5 |
2 files changed, 6 insertions, 4 deletions
diff --git a/CVSROOT/cvsedit b/CVSROOT/cvsedit index 24453b9..1f9e6a0 100755 --- a/CVSROOT/cvsedit +++ b/CVSROOT/cvsedit @@ -6,7 +6,7 @@ # To use this, make it executable, and set your editinfo DEFAULT line: # DEFAULT /path/to/this/program # -# $Id$ +# $Id: cvsedit,v 1.10 1996/02/07 14:35:36 peter Exp $ # # same rules as CVS @@ -60,7 +60,8 @@ while(<IN>) { next; } else { # Delete if they only have whitespace after them. - if (/^Reviewed by:$/i || + if (/^PR:$/i || + /^Reviewed by:$/i || /^Submitted by:$/i || /^Obtained from:$/i || /^CC:$/i) { diff --git a/CVSROOT/log_accum.pl b/CVSROOT/log_accum.pl index f82b04d..6fe605c 100755 --- a/CVSROOT/log_accum.pl +++ b/CVSROOT/log_accum.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $Id: log_accum.pl,v 1.19 1996/03/11 19:43:10 peter Exp $ +# $Id: log_accum.pl,v 1.20 1996/12/15 05:38:42 peter Exp $ # # Perl filter to handle the log messages from the checkin of files in # a directory. This script will group the lists of files by log @@ -476,7 +476,8 @@ while (<STDIN>) { push (@added_files, split) if ($state == $STATE_ADDED); push (@removed_files, split) if ($state == $STATE_REMOVED); if ($state == $STATE_LOG) { - if (/^Reviewed by:$/i || + if (/^PR:$/i || + /^Reviewed by:$/i || /^Submitted by:$/i || /^Obtained from:$/i) { next; |
