From: Jesse Vincent <jesse@bestpractical.com>
Date: Tue, 28 Jul 2009 18:35:08 +0000 (-0400)
Subject: makerel now tells you _which_ files differ from the MANIFEST and if possible gives... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b05e874888db731870edce844ef9f3194eafed4;p=p5sagit%2Fp5-mst-13.2.git

makerel now tells you _which_ files differ from the MANIFEST and if possible gives you sha1 sums of the built distribution
---

diff --git a/Porting/makerel b/Porting/makerel
index 8c9e9c1..b23e1c7 100644
--- a/Porting/makerel
+++ b/Porting/makerel
@@ -64,8 +64,15 @@ print "Cross-checking the MANIFEST...\n";
 ($missfile, $missentry) = fullcheck();
 @$missentry
     = grep {$_ !~ m!^\.git/! and $_ !~ m!(?:/|^)\.gitignore!} @$missentry;
-warn "Can't make a release with MANIFEST files missing.\n" if @$missfile;
-warn "Can't make a release with files not listed in MANIFEST.\n" if @$missentry;
+if (@$missfile ) {
+    warn "Can't make a release with MANIFEST files missing:\n";
+    warn "\t".$_."\n" for (@$missfile);
+}
+if (@$missentry ) {
+    warn "Can't make a release with files not listed in MANIFEST\n";
+    warn "\t".$_."\n" for (@$missentry);
+
+}
 if ("@$missentry" =~ m/\.orig\b/) {
     # Handy listing of find command and .orig files from patching work.
     # I tend to run 'xargs rm' and copy and paste the file list.
@@ -200,4 +207,11 @@ if ($opts{b}) {
 }
 
 print "\n";
-system("ls -ld $perl*");
+
+if (`which sha1`) {
+    system("sha1 $perl*.tar.*");
+} elsif (`which shasum`) {
+    system("shasum $perl*.tar.*");
+} else {
+    system("ls -ld $perl*");
+}