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

[Derek Robert Price]

CVSROOT:        /cvsroot/cvs
Module name:    ccvs
Changes by:     Derek Robert Price <dprice>     06/11/17 18:36:42

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl: Fix a few minor bugs.  Some minor reformatting.
        (Original patch from Sylvain Beucler <address@hidden>.)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/ChangeLog?cvsroot=cvs&r1=1.219&r2=1.220
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/log_accum.pl?cvsroot=cvs&r1=1.53&r2=1.54

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/ChangeLog,v
retrieving revision 1.219
retrieving revision 1.220
diff -u -b -r1.219 -r1.220
--- ChangeLog   5 Sep 2006 17:23:44 -0000       1.219
+++ ChangeLog   17 Nov 2006 18:36:42 -0000      1.220
@@ -1,3 +1,8 @@
+2006-11-17  Derek Price  <address@hidden>
+
+       * log_accum.pl: Fix a few minor bugs.  Some minor reformatting.
+       (Original patch from Sylvain Beucler <address@hidden>.)
+
 2006-09-05  Mark D. Baushke  <address@hidden>
 
        * validate_repo.pl (look_at_cvs_file): Check for head being in

Index: log_accum.pl
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/log_accum.pl,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -b -r1.53 -r1.54
--- log_accum.pl        4 Aug 2006 11:29:18 -0000       1.53
+++ log_accum.pl        17 Nov 2006 18:36:42 -0000      1.54
@@ -236,7 +236,7 @@
     my %config;
 
     # Set up the option processing functions.
-    $config{'only-tags'} =
+    $config{'only-tag'} =
        sub
        {
            $_[1] = '' if $_[1] eq "HEAD" || $_[1] eq "TRUNK";
@@ -245,7 +245,7 @@
     $config{'quiet'} =
        sub
        {
-           $config{'verbose'} = !$_[1];
+           $config{debug} = !$_[1];
        };
     $config{'file-prefix'} =
        sub
@@ -258,7 +258,7 @@
        sub
        {
            warn "Using deprecated -u option. Use -T instead.";
-           &{$config{'file-text'}} (@_);
+           &{$config{'file-prefix'}} (@_);
        };
     $config{'suppress-diffs-against-empties'} =
        sub
@@ -274,7 +274,7 @@
 # This is global for convenience.  It is used in parse_config & process_argv.
 my @option_spec = ("config|c=s@",
                   "mail-to|m=s@",
-                  "tag|only-tag|r=s@",
+                  "only-tag|tag|r=s@",
                   "file-prefix|file-text|T=s", "user|u=s",
                   "debug|verbose|v!",
                   "debug-log|debug-file=s@",