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

[Derek Robert Price]

CVSROOT:        /cvsroot/cvs
Module name:    ccvs
Branch:         
Changes by:     Derek Robert Price <address@hidden>     06/05/09 23:00:13

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl: Comment out debug prints.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/cvs/ccvs/contrib/ChangeLog.diff?tr1=1.184&tr2=1.185&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/cvs/ccvs/contrib/log_accum.pl.diff?tr1=1.16&tr2=1.17&r1=text&r2=text

Patches:
Index: ccvs/contrib/ChangeLog
diff -u ccvs/contrib/ChangeLog:1.184 ccvs/contrib/ChangeLog:1.185
--- ccvs/contrib/ChangeLog:1.184        Tue May  9 22:58:48 2006
+++ ccvs/contrib/ChangeLog      Tue May  9 23:00:13 2006
@@ -1,5 +1,7 @@
 2006-05-09  Derek Price  <address@hidden>
 
+       * log_accum.pl: Comment out debug prints.
+
        * log_accum.pl: Handle file names with spaces.
        ($CVSWEB_URI): Remove trailing /.
        (@path): Delete global.
Index: ccvs/contrib/log_accum.pl
diff -u ccvs/contrib/log_accum.pl:1.16 ccvs/contrib/log_accum.pl:1.17
--- ccvs/contrib/log_accum.pl:1.16      Tue May  9 22:58:48 2006
+++ ccvs/contrib/log_accum.pl   Tue May  9 23:00:13 2006
@@ -700,7 +700,7 @@
 
 
 #print("ARGV  - ", join(":", @ARGV), "\n");
-print("files - ", join(":", @files), "\n");
+#print("files - ", join(":", @files), "\n");
 #print("dir   - ", $dir, "\n");
 #print("id    - ", $id, "\n");
 
@@ -724,7 +724,7 @@
 # Iterate over the body of the message collecting information.
 #
 while (<STDIN>) {
-    print $_;
+    #print $_;
     chomp;                      # Drop the newline
     if (/^\s*(Tag|Revision\/Branch):\s*(\w+)/) {
        $branch = $2;
@@ -751,7 +751,7 @@
        {
            if (/^\t\Q$files[$i]\E /)
            {
-               print "matched $files[$i]\n";
+               #print "matched $files[$i]\n";
                $m = $i if !defined $m or length $files[$m] < length $files[$i];
            }
        }