jeszcze mala poprawka do plikow w wielu katalogach [Re: CVSROOT: cvslog.pl]

[Paweł Żurowski]

W liście z wto, 27-01-2004, godz. 16:38, qboosh pisze: 
[...]

przepraszam za klopoty z mojej strony... 

pozdrawiam
-pawel

-- 
Pawel Zurowski
JID: <my_login>@jabber.org
-------------- następna część ---------
Index: cvslog.pl
===================================================================
RCS file: /cvsroot/CVSROOT/cvslog.pl,v
retrieving revision 1.46
diff -u -r1.46 cvslog.pl
--- cvslog.pl	27 Jan 2004 15:37:55 -0000	1.46
+++ cvslog.pl	27 Jan 2004 15:43:42 -0000
@@ -26,7 +26,7 @@
 # TODO: attach diffs (under some length, possibly a diffstat instead),
 #	non-agressively reformat log messages
 #
-# $Id: cvslog.pl,v 1.46 2004/01/27 15:37:55 qboosh Exp $
+# $Id: cvslog.pl,v 1.45 2004/01/27 15:30:15 qboosh Exp $
 
 use strict;
 use vars qw ($project $repository $from_email $dest_email $reply_email
@@ -288,7 +288,7 @@
 # TODO: Use CVSROOT/users to determine the committer's realname and email and
 # add it to the reply-to / mail-followup-to list. --pasky
 
-my ($VERSION) = '$Revision: 1.46 $' =~ / (\d+\.\d+) /;
+my ($VERSION) = '$Revision: 1.45 $' =~ / (\d+\.\d+) /;
 
 
 # Subject files, references and 
@@ -307,7 +307,7 @@
   $subdir =~ s!^[^/]*/?!!;
   $subdir .= '/' if $subdir ne '';
 
-  $files_affected_part .= "$dir:\n   ";
+  $files_affected_part .= "\n$dir:\n   ";
 
   if ($dirs[$i]->{type} eq 'directory') {
     $files_affected_part .= "New directory\n";
@@ -387,8 +387,7 @@
 EOM
 
 print MAIL <<EOM;
----- Files affected:
-$files_affected_part
+---- Files affected:$files_affected_part
 EOM
 
 
@@ -439,10 +438,12 @@
       }
     }
 
-    push (@diff, ("=" x 64) . "\n");
+    push (@diff, "\n" . ("=" x 64) . "\n");
     push (@diff, @difflines);
   }
 }
+
+push (@diff, ("=" x 64) . "\n");
 
 # Diffstat