You are viewing a plain text version of this content. The canonical link for it is here.
Posted to cvs@httpd.apache.org by Ben Laurie <be...@hyperreal.com> on 1996/08/24 13:17:13 UTC
cvs commit: CVSROOT log_accum.pl
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 .= $_;