cvs commit: CVSROOT log_accum.pl

[Ben Laurie]

ben         96/08/24 04:35:31

  Modified:    .         log_accum.pl
  Log:
  Fixed!
  Submitted by: Alexei Kosut
  
  Revision  Changes    Path
  1.23      +2 -6      CVSROOT/log_accum.pl
  
  Index: log_accum.pl
  ===================================================================
  RCS file: /export/home/cvs/CVSROOT/log_accum.pl,v
  retrieving revision 1.22
  retrieving revision 1.23
  diff -C3 -r1.22 -r1.23
  *** log_accum.pl      1996/08/24 11:30:43     1.22
  --- log_accum.pl      1996/08/24 11:35:29     1.23
  ***************
  *** 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
  --- 1,6 ----
    #!/usr/bin/perl
    #
  ! # $Id: log_accum.pl,v 1.23 1996/08/24 11:35:29 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,235 ****
        $prev_rev =~ /(.*)\.([0-9]+$)/;
        $prev = $2 - 1;
        $prev_rev = $1 . "." .  $prev;
  ! 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";
    
  --- 220,231 ----
        $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", 
"-r$rev", $file;
        while (<DIFF>) {
                $diff .= $_;
        }
        close(DIFF);
        $diff .= "\n\n";
    #print STDERR "Diff:\n $diff\n";