Porting/makerel: handle more sha1 variants,

and be quieter on failure

diff --git a/Porting/makerel b/Porting/makerel
index b23e1c7..2159579 100644 (file)
--- 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;
+    }
 }