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

[Derek Robert Price]

CVSROOT:        /cvsroot/cvs
Module name:    ccvs
Changes by:     Derek Robert Price <dprice>     06/06/07 14:35:26

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl (set_defaults): Don't dereference undefined value.
        (process_stdin): Handle dashes in tag names.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/ChangeLog?cvsroot=cvs&r1=1.205&r2=1.206
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/log_accum.pl?cvsroot=cvs&r1=1.41&r2=1.42

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/ChangeLog,v
retrieving revision 1.205
retrieving revision 1.206
diff -u -b -r1.205 -r1.206
--- ChangeLog   7 Jun 2006 13:22:37 -0000       1.205
+++ ChangeLog   7 Jun 2006 14:35:26 -0000       1.206
@@ -1,6 +1,9 @@
 2006-06-07  Derek Price  <address@hidden>
 
-       * log_accum.pl: Fix branch filter.
+       * log_accum.pl (set_defaults): Don't dereference undefined value.
+       (process_stdin): Handle dashes in tag names.
+
+       * log_accum.pl (main): Fix branch filter.
        (Patch from Sylvain Beucler <address@hidden>.)
 
 2006-06-05  Derek Price  <address@hidden>

Index: log_accum.pl
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/log_accum.pl,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- log_accum.pl        7 Jun 2006 13:22:37 -0000       1.41
+++ log_accum.pl        7 Jun 2006 14:35:26 -0000       1.42
@@ -217,7 +217,8 @@
        }
        for ("mail-to", "diff-arg", "separate-diffs")
        {
-           print STDERR "config{$_} => ", join (":", @{$config->{$_}}), "\n";
+           my @tmp = @{$config->{$_}} if $config->{$_};
+           print STDERR "config{$_} => ", join (":", @tmp), "\n";
        }
     }
 }
@@ -489,8 +490,9 @@
     while (<STDIN>)
     {
        chomp;                      # Drop the newline
-       if (/^\s*(Tag|Revision\/Branch):\s*(\w+)/)
+       if (/^\s*(Tag|Revision\/Branch):\s*([a-zA-Z][a-zA-Z0-9_-]*)$/)
        {
+           print STDERR "Read $1 `$2' from `$_'" if $debug;
            push @branch_lines, $2;
            next;
        }