cvs: CVSROOT / loginfo.pl

sas Wed Jun 14 01:19:11 2000 EDT Modified files: /CVSROOT loginfo.pl Log: Comment out some print statements and remove trailing slash from directory names ("/" is not changed to ""). Index: CVSROOT/loginfo.pl diff -u CVSROOT/loginfo.pl:1.29 CVSROOT/loginfo.pl:1.30 --- CVSROOT/loginfo.pl:1.29 Fri May 12 06:56:23 2000 +++ CVSROOT/loginfo.pl Wed Jun 14 01:19:11 2000 @@ -86,7 +86,7 @@ $| = 1; -print "Reading summary file\n"; +#print "Reading summary file\n"; open(FC, "<$summary.$id"); @@ -105,14 +105,14 @@ } close FC; -print "Unlinking helper files\n"; +#print "Unlinking helper files\n"; # clean up a little bit unlink("$summary.$id"); unlink("$last_file.$id"); -print "Running rdiff\n"; +#print "Running rdiff\n"; # build a diff (and new files) if necessary my $diffmsg = ''; @@ -135,7 +135,7 @@ close(LOG); } -print "Building commit email\n"; +#print "Building commit email\n"; # build our email my $msg = ""; @@ -278,6 +278,7 @@ foreach my $file (@files) { (my $dir = $file) =~ s#[^/]+$##; $dir =~ s/^$module//; + $dir =~ s/(.+)\//\1/; $file =~ s#^.+/(.+)$#$1#; push @{ $dirfiles{$dir} }, $file; }