next;
} elsif ($ty eq 'Pseudomerge') {
if (defined $pseudos_must_overwrite_this) {
- confess 'xxx actually check this';
+ grep {
+ is_fast_fwd $pseudos_must_overwrite_this, $_->{CommitId}
+ },
+ @{ $cl->{Overwritten} }
+ or
+ die "Pseudomerge $cl->{CommitId} does not overwrite ".
+ "$pseudos_must_overwrite_this as expected.";
}
push @pseudomerges, $cl;
$rewrite_from_here->();
# Now we build it back up again
workarea_fresh();
- in_workarea sub { xxx attributes xxx };
my $rewriting = 1;