forked from lix-project/lix
* Only include predecessors that are themselves being pushed.
Otherwise the substitute mechanism can break in subtle ways.
This commit is contained in:
parent
00fe1a506f
commit
1ad9d11247
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue