From 1ad9d1124727dd48beaec36b006bba856350905d Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Fri, 13 Feb 2004 10:43:31 +0000
Subject: [PATCH] * Only include predecessors that are themselves being pushed.
   Otherwise the substitute mechanism can break in subtle ways.

---
 scripts/nix-push.in | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/scripts/nix-push.in b/scripts/nix-push.in
index b5899e458..356fe1952 100644
--- a/scripts/nix-push.in
+++ b/scripts/nix-push.in
@@ -139,7 +139,12 @@ for (my $n = 0; $n < scalar @storepaths; $n++) {
         while (<PREDS>) {
             chomp;
             die unless (/^\//);
-            print MANIFEST "  SuccOf: $_\n";
+            my $pred = $_;
+            # Only include predecessors that are themselves being
+            # pushed.
+            if (defined $storepaths{$pred}) {
+                print MANIFEST "  SuccOf: $pred\n";
+            }
         }
         close PREDS;
     }