From 6fb5f7e532bf43ecf02004a4010496e9f98d09bc Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Mon, 14 Mar 2005 18:55:29 +0000
Subject: [PATCH] * Pass `--base32' unless using MD5.

---
 scripts/download-using-manifests.pl.in | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scripts/download-using-manifests.pl.in b/scripts/download-using-manifests.pl.in
index 487efaba0..4dbc2396f 100644
--- a/scripts/download-using-manifests.pl.in
+++ b/scripts/download-using-manifests.pl.in
@@ -109,7 +109,9 @@ while ($queueFront < scalar @queue) {
             if (isValidPath($patch->{basePath})) {
                 # !!! this should be cached
                 my ($baseHashAlgo, $baseHash) = parseHash $patch->{baseHash};
-                my $hash = `@bindir@/nix-hash --type '$baseHashAlgo' "$patch->{basePath}"`;
+                my $format = "--base32";
+                $format = "" if $baseHashAlgo eq "md5";
+                my $hash = `@bindir@/nix-hash --type '$baseHashAlgo' $format "$patch->{basePath}"`;
                 chomp $hash;
 #                print "  MY HASH is $hash\n";
                 if ($hash ne $baseHash) {