* Only include predecessors that are themselves being pushed.

Otherwise the substitute mechanism can break in subtle ways.
This commit is contained in:
Eelco Dolstra 2004-02-13 10:43:31 +00:00
parent 00fe1a506f
commit 1ad9d11247

View file

@ -139,7 +139,12 @@ for (my $n = 0; $n < scalar @storepaths; $n++) {
while (<PREDS>) { while (<PREDS>) {
chomp; chomp;
die unless (/^\//); 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; close PREDS;
} }