Porting/makerel: handle more sha1 variants,
authorDavid Mitchell <davem@iabyn.com>
Thu, 6 Aug 2009 00:52:44 +0000 (01:52 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 10 Aug 2009 08:15:06 +0000 (09:15 +0100)
and be quieter on failure

(cherry picked from commit ecc9c9d9c3a4c0426f481023c08d9331c8c5775f)

Porting/makerel

index b23e1c7..2159579 100644 (file)
@@ -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;
+    }
 }