From: David Mitchell <davem@iabyn.com>
Date: Thu, 6 Aug 2009 00:52:44 +0000 (+0100)
Subject: Porting/makerel: handle more sha1 variants,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ecc9c9d9c3a4c0426f481023c08d9331c8c5775f;p=p5sagit%2Fp5-mst-13.2.git

Porting/makerel: handle more sha1 variants,
and be quieter on failure
---

diff --git a/Porting/makerel b/Porting/makerel
index b23e1c7..2159579 100644
--- a/Porting/makerel
+++ b/Porting/makerel
@@ -208,10 +208,12 @@ if ($opts{b}) {
 
 print "\n";
 
-if (`which sha1`) {
-    system("sha1 $perl*.tar.*");
-} elsif (`which shasum`) {
-    system("shasum $perl*.tar.*");
-} else {
-    system("ls -ld $perl*");
+system("ls -ld $perl*");
+print "\n";
+
+for my $sha (qw(sha1 shasum sha1sum)) {
+    if (`which $sha 2>/dev/null`) {
+	system("$sha $perl*.tar.*");
+	last;
+    }
 }