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 17:55:48 +0000

CVSROOT:        /cvsroot/cvs
Module name:    ccvs
Changes by:     Derek Robert Price <dprice>     06/08/03 17:55:48

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl: Change --debug_file to --debug-log or --debug-file, for
        readability and consistency.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/ChangeLog?cvsroot=cvs&r1=1.214&r2=1.215
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/log_accum.pl?cvsroot=cvs&r1=1.50&r2=1.51

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/ChangeLog,v
retrieving revision 1.214
retrieving revision 1.215
diff -u -b -r1.214 -r1.215
--- ChangeLog   3 Aug 2006 17:42:22 -0000       1.214
+++ ChangeLog   3 Aug 2006 17:55:48 -0000       1.215
@@ -1,5 +1,8 @@
 2006-08-03  Derek Price  <address@hidden>
 
+       * log_accum.pl: Change --debug_file to --debug-log or --debug-file, for
+       readability and consistency.
+
        * log_accum.pl: Use proper Perl constants.
 
        * log_accum.pl (get_topdir): Don't assume the directory list will be

Index: log_accum.pl
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/log_accum.pl,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- log_accum.pl        3 Aug 2006 17:42:22 -0000       1.50
+++ log_accum.pl        3 Aug 2006 17:55:48 -0000       1.51
@@ -130,7 +130,7 @@
 # Config hash values:
 #      mail-to         Reference to array of email destinations.
 #      debug           Whether to print debug information.
-#      debug_file      File name to print debugging information to.
+#      debug-log       File name to print debugging information to.
 #      tag             Reference to array of tags to send email for.
 #      url             Base URL for cvsweb.
 #      cvsroot         CVSROOT for use with cvsweb.
@@ -198,9 +198,9 @@
     $config->{'file-text'} = "cvs" if !exists $config->{'file-text'};
 
     # Just set @debug in a global.  It's easier.
-    $config->{debug_file} = [] unless exists $config->{debug_file};
-    push @{$config->{debug_file}}, '&STDERR' if $config->{debug};
-    foreach (@{$config->{debug_file}})
+    $config->{'debug-log'} = [] unless exists $config->{'debug-log'};
+    push @{$config->{'debug-log'}}, '&STDERR' if $config->{debug};
+    foreach (@{$config->{'debug-log'}})
     {
        my $debug;
        if (open $debug, ">>$_")
@@ -221,7 +221,7 @@
        {
            debug "config{$_} => ", $config->{$_}, "\n";
        }
-       for ("debug_file", "mail-to", "diff-arg", "separate-diffs")
+       for ("debug-log", "mail-to", "diff-arg", "separate-diffs")
        {
            my @tmp = @{$config->{$_}} if $config->{$_};
            debug "config{$_} => ", join (":", @tmp), "\n";
@@ -277,7 +277,7 @@
                   "tag|only-tag|r=s@",
                   "file-prefix|file-text|T=s", "user|u=s",
                   "debug|verbose|v!",
-                  "debug_file|log=s@",
+                  "debug-log|debug-file=s@",
                   "quiet|q!",
                   "commit-log|f=s",
                   "url|cvsweb|U=s",




reply via email to

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