- more human-readable error reporting by md5()

Changed files:
    file-fetcher.pl -> 1.35

diff --git a/file-fetcher.pl b/file-fetcher.pl
index ea8d9bcdd15473c5ab9e19772a2216ec12ffe7b3..b0f266d51ff95160c0cc163626ba6ce75ec62783 100644 (file)
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -175,7 +175,8 @@ sub md5($)
   run \@cmd, \$in, \$md5, \$err;
   if ($err ne "") {
     chomp($err);
-    $problems .= "       [debug]: " . $err . "\n";
+    $problems .= "FATAL: " . $err . "\n";
+    return "error";
   }
   chomp $md5;
   $md5 =~ /^([a-f0-9]{32})/ and $md5 = $1;