ben 96/08/24 04:17:12
Modified: . log_accum.pl Log: Try to diagnose missing change entries in email. Revision Changes Path 1.20 +3 -2 CVSROOT/log_accum.pl Index: log_accum.pl =================================================================== RCS file: /export/home/cvs/CVSROOT/log_accum.pl,v retrieving revision 1.19 retrieving revision 1.20 diff -C3 -r1.19 -r1.20 *** log_accum.pl 1996/03/14 19:01:46 1.19 --- log_accum.pl 1996/08/24 11:17:08 1.20 *************** *** 1,6 **** #!/usr/bin/perl # ! # $Id: log_accum.pl,v 1.19 1996/03/14 19:01:46 ben 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 --- 1,6 ---- #!/usr/bin/perl # ! # $Id: log_accum.pl,v 1.20 1996/08/24 11:17:08 ben 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 *************** *** 220,226 **** $prev_rev =~ /(.*)\.([0-9]+$)/; $prev = $2 - 1; $prev_rev = $1 . "." . $prev; ! #print STDERR "Rev: $rev, $1, $2, $prev, $prev_rev\n"; open(DIFF, "-|") || exec 'cvs', '-Qn', 'diff', '-C3', "-r$prev_rev", $file; while (<DIFF>) { $diff .= $_; --- 220,227 ---- $prev_rev =~ /(.*)\.([0-9]+$)/; $prev = $2 - 1; $prev_rev = $1 . "." . $prev; ! print STDERR "Rev: $rev, $1, $2, $prev, $prev_rev\n"; ! print STDERR "Dir: `pwd`\n"; open(DIFF, "-|") || exec 'cvs', '-Qn', 'diff', '-C3', "-r$prev_rev", $file; while (<DIFF>) { $diff .= $_;