X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fgenlog;h=627ba316d40d15c9d658ca8f860b1d1792c9fc2b;hb=679ac26e110ef97fbf30ce13479d7051699b4a34;hp=218da41d0423a92909cb01cae1a08009fad0627d;hpb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Porting/genlog b/Porting/genlog
index 218da41..627ba31 100755
--- a/Porting/genlog
+++ b/Porting/genlog
@@ -73,6 +73,7 @@ else {
     while (@desc) {
 	my ($change,$who,$date,$time,@log,$branch,$file,$type,%files);
 	my $skip = 0;
+        my $nbranch = 0;
 	$_ = shift @desc;
 	if (/^Change (\d+) by (\w+)\@.+ on (\S+) (\S+)\s*$/) {
 	    ($change, $who, $date, $time) = ($1,$2,$3,$4);
@@ -88,6 +89,7 @@ else {
 		    last unless /^\.\.\./;
 		    if (m{^\.\.\. //depot/(.*?perl|[^/]*)/([^#]+)#\d+ (\w+)\s*$}) {
 			($branch,$file,$type) = ($1,$2,$3);
+ 		        $nbranch++;
 		        if (exists $branch_exclude{$branch} or
 			    @branch_include and
 			    not exists $branch_include{$branch}) {
@@ -103,7 +105,7 @@ else {
 		}
 	    }
 	}
-	next if not $change or $skip;
+	next if not $change;
 	print "_" x 76, "\n";
 	printf <<EOT, $change, $who, $date, $time;
 [%6s] By: %-25s             on %9s %9s