[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 13:22:37

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl: Fix branch filter.
        (Patch from Sylvain Beucler <address@hidden>.)

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/ChangeLog,v
retrieving revision 1.204
retrieving revision 1.205
diff -u -b -r1.204 -r1.205
--- ChangeLog   5 Jun 2006 14:58:44 -0000       1.204
+++ ChangeLog   7 Jun 2006 13:22:37 -0000       1.205
@@ -1,3 +1,8 @@
+2006-06-07  Derek Price  <address@hidden>
+
+       * log_accum.pl: Fix branch filter.
+       (Patch from Sylvain Beucler <address@hidden>.)
+
 2006-06-05  Derek Price  <address@hidden>
 
        * log_accum.pl: Restore #! @PERL@ -T line.  Print warm fuzzies.

Index: log_accum.pl
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/log_accum.pl,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- log_accum.pl        5 Jun 2006 14:58:44 -0000       1.40
+++ log_accum.pl        7 Jun 2006 13:22:37 -0000       1.41
@@ -1333,7 +1333,7 @@
 
     # Exit if specific tag information was requested and this isn't it.
     return 0 if exists $config->{'tag'}
-               && grep /^\Q$branch_lines->[0]\E$/, @{$config->{'tag'}};
+               && !grep /^\Q$branch_lines->[0]\E$/, @{$config->{'tag'}};
 
     # Check for imported sources.
     if (($UseNewInfoFmtStrings ? $files->[0] : join " ", @$files)