ben 96/08/24 04:30:45
Modified: . log_accum.pl Log: More debug. Revision Changes Path 1.22 +4 -2 CVSROOT/log_accum.pl Index: log_accum.pl =================================================================== RCS file: /export/home/cvs/CVSROOT/log_accum.pl,v retrieving revision 1.21 retrieving revision 1.22 diff -C3 -r1.21 -r1.22 *** log_accum.pl 1996/08/24 11:21:24 1.21 --- log_accum.pl 1996/08/24 11:30:43 1.22 *************** *** 1,6 **** #!/usr/bin/perl # ! # $Id: log_accum.pl,v 1.21 1996/08/24 11:21:24 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.22 1996/08/24 11:30:43 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 *************** *** 223,233 **** print STDERR "Rev: $rev, $1, $2, $prev, $prev_rev\n"; $xxx=`pwd`; print STDERR "Dir: $xxx\n"; ! open(DIFF, "-|") || exec 'cvs', '-Qn', 'diff', '-C3', "-r$prev_rev", $file; while (<DIFF>) { $diff .= $_; } close(DIFF); $diff .= "\n\n"; #print STDERR "Diff:\n $diff\n"; --- 223,235 ---- print STDERR "Rev: $rev, $1, $2, $prev, $prev_rev\n"; $xxx=`pwd`; print STDERR "Dir: $xxx\n"; ! print STDERR `ls -al`; ! open(DIFF, "-|") || exec 'cvs', '-Qn', 'diff', '-C3', "-r$prev_rev", "-r$rev", $file; while (<DIFF>) { $diff .= $_; } close(DIFF); + print STDERR `ls -al`; $diff .= "\n\n"; #print STDERR "Diff:\n $diff\n";