From 7272c3f8178b6509e6d949b1e7538bbde49de58a Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Fri, 18 Mar 2005 09:43:25 +0000
Subject: [PATCH] * Ignore hash conflicts in gc-releases.pl.

---
 scripts/gc-releases.pl         |  2 +-
 scripts/generate-patches.pl.in |  2 +-
 scripts/readmanifest.pm.in     | 11 ++++++++---
 3 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/scripts/gc-releases.pl b/scripts/gc-releases.pl
index 2423d8c0e..ed40aded5 100755
--- a/scripts/gc-releases.pl
+++ b/scripts/gc-releases.pl
@@ -32,7 +32,7 @@ my %successors;
 
 foreach my $manifest (@ARGV) {
     print STDERR "loading $manifest\n";
-    if (readManifest($manifest, \%narFiles, \%patches, \%successors) < 3) {
+    if (readManifest($manifest, \%narFiles, \%patches, \%successors, 1) < 3) {
 #        die "manifest `$manifest' is too old (i.e., for Nix <= 0.7)\n";
     }
 }
diff --git a/scripts/generate-patches.pl.in b/scripts/generate-patches.pl.in
index 9392ef5c7..3856dd568 100755
--- a/scripts/generate-patches.pl.in
+++ b/scripts/generate-patches.pl.in
@@ -328,7 +328,7 @@ foreach my $p (keys %dstOutPaths) {
             { url => "$patchesURL/$finalName", hash => "$hashAlgo:$narDiffHash"
             , size => $narDiffSize, basePath => $closest, baseHash => "$hashAlgo:$baseHash"
             , narHash => "$hashAlgo:$narHash", patchType => "nar-bsdiff"
-            };
+            }, 0;
     }
 }
 
diff --git a/scripts/readmanifest.pm.in b/scripts/readmanifest.pm.in
index 5066cdde1..f71a2f081 100644
--- a/scripts/readmanifest.pm.in
+++ b/scripts/readmanifest.pm.in
@@ -5,6 +5,7 @@ sub addPatch {
     my $patches = shift;
     my $storePath = shift;
     my $patch = shift;
+    my $allowConflicts = shift;
 
     $$patches{$storePath} = []
         unless defined $$patches{$storePath};
@@ -18,7 +19,8 @@ sub addPatch {
                 $found = 1 if ($patch2->{basePath} eq $patch->{basePath});
             } else {
                 die "conflicting hashes for URL $patch->{url}, " .
-                    "namely $patch2->{hash} and $patch->{hash}";
+                    "namely $patch2->{hash} and $patch->{hash}"
+                    unless $allowConflicts;
             }
         }
     }
@@ -34,6 +36,8 @@ sub readManifest {
     my $narFiles = shift;
     my $patches = shift;
     my $successors = shift;
+    my $allowConflicts = shift;
+    $allowConflicts = 0 unless defined $allowConflicts;
 
     open MANIFEST, "<$manifest"
         or die "cannot open `$manifest': $!";
@@ -100,7 +104,8 @@ sub readManifest {
                                 $found = 1;
                             } else {
                                 die "conflicting hashes for URL $url, " .
-                                    "namely $narFile->{hash} and $hash";
+                                    "namely $narFile->{hash} and $hash"
+                                    unless $allowConflicts;
                             }
                         }
                     }
@@ -124,7 +129,7 @@ sub readManifest {
                         , basePath => $basePath, baseHash => $baseHash
                         , narHash => $narHash, patchType => $patchType
                         , hashAlgo => $hashAlgo
-                        };
+                        }, $allowConflicts;
                 }
 
             }