cvs-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Cvs-cvs] ccvs/contrib ChangeLog log_accum.pl


From: Derek Robert Price
Subject: [Cvs-cvs] ccvs/contrib ChangeLog log_accum.pl
Date: Thu, 03 Aug 2006 16:37:59 +0000

CVSROOT:        /cvsroot/cvs
Module name:    ccvs
Changes by:     Derek Robert Price <dprice>     06/08/03 16:37:59

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl (debug): New function.
        (option_spec): Parse debug log names.
        (set_defaults): Open debug log files.
        (*): Update to compensate.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/ChangeLog?cvsroot=cvs&r1=1.211&r2=1.212
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/log_accum.pl?cvsroot=cvs&r1=1.47&r2=1.48

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/ChangeLog,v
retrieving revision 1.211
retrieving revision 1.212
diff -u -b -r1.211 -r1.212
--- ChangeLog   3 Aug 2006 13:50:28 -0000       1.211
+++ ChangeLog   3 Aug 2006 16:37:59 -0000       1.212
@@ -1,5 +1,10 @@
 2006-08-03  Derek Price  <address@hidden>
 
+       * log_accum.pl (debug): New function.
+       (option_spec): Parse debug log names.
+       (set_defaults): Open debug log files.
+       (*): Update to compensate.
+
        * log_accum.pl (get_topdir): Quote file name in debug output.
 
 2006-07-24  Derek Price  <address@hidden>

Index: log_accum.pl
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/log_accum.pl,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- log_accum.pl        3 Aug 2006 15:03:21 -0000       1.47
+++ log_accum.pl        3 Aug 2006 16:37:59 -0000       1.48
@@ -201,9 +201,7 @@
     foreach (@{$config->{debug_file}})
     {
        my $debug;
-       my $fs = $_;
-       $fs =~ s/^[^&]/ /;
-       if (open $debug, ">>$fs")
+       if (open $debug, ">>$_")
        {
            push @debug, $debug;
        }




reply via email to

[Prev in Thread] Current Thread [Next in Thread]