From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 3 Aug 2000 13:29:19 +0000 (+0000)
Subject: Be more informative on what is skipped and why,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=631c47bf5044f10b5ce4a2b023eba24f85f536e5;p=p5sagit%2Fp5-mst-13.2.git

Be more informative on what is skipped and why,
also repeat the list at the end.

p4raw-id: //depot/perl@6504
---

diff --git a/Porting/p4desc b/Porting/p4desc
index cdbd957..2d1c9d8 100755
--- a/Porting/p4desc
+++ b/Porting/p4desc
@@ -85,7 +85,8 @@ if ($cur) {
 		warn "$newfile add, revision != 1!\n" unless $newfile =~ /#1$/;
 	    }
         } else {
-	    $_ = "# Skipped: $_";
+	    push @skipped, "# $_";
+	    $_ = '';
 	}
     }
     warn "file [$file] line [$cur] file# [$fnum]\n" if $v;
@@ -93,6 +94,7 @@ if ($cur) {
 
 if (m|^==== //depot/|) { 
     $skip = !m|$branches|;
+    print "# Skipped because not under branches: $branches\n" if $skip;
 }
 
 $_ = "# $_" if $skip; 
@@ -108,6 +110,9 @@ if (/^Change (\d+) by/) {
 
 if (eof) {
     $_ .= newfiles();
+    $_ .= join('', "\n",
+               "# Skipped because not under branches: $branches\n",
+               @skipped, "\n") if @skipped; 
 }
 
 sub newfiles {