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>) {
|
||||
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;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue