[Top][All Lists]
[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: |
Wed, 07 Jun 2006 14:35:26 +0000 |
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;
}