[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/27 02:07:57

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl (compile_subject): Keep slashes in paths.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/ChangeLog?cvsroot=cvs&r1=1.207&r2=1.208
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/log_accum.pl?cvsroot=cvs&r1=1.43&r2=1.44

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/ChangeLog,v
retrieving revision 1.207
retrieving revision 1.208
diff -u -b -r1.207 -r1.208
--- ChangeLog   27 Jun 2006 01:57:57 -0000      1.207
+++ ChangeLog   27 Jun 2006 02:07:57 -0000      1.208
@@ -1,5 +1,7 @@
 2006-06-26  Derek Price  <address@hidden>
 
+       * log_accum.pl (compile_subject): Keep slashes in paths.
+
        * log_accum.pl: Shrink attributions, referring reader to ChangeLog.
        (write_file): Create empty files.
        (cleanup_tmpfiles): Fix regexp & untaint result before deleting.

Index: log_accum.pl
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/log_accum.pl,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- log_accum.pl        27 Jun 2006 01:57:57 -0000      1.43
+++ log_accum.pl        27 Jun 2006 02:07:57 -0000      1.44
@@ -893,7 +893,7 @@
 
     
     my $dir = shift @list;
-    die "Darn, $dir doesn't look like a directory!" unless $dir =~ s#/$##;
+    die "Darn, $dir doesn't look like a directory!" unless $dir =~ m#/$#;
     $dir = substr $dir, $offset;
 
     # Build the list of files with directories prepended.