if (!$prev) {
fail "No ffq-prev to stitch." unless $opt_noop_ok;
}
+ my $old_head = get_head();
+
+ breakwater_of $old_head, 'unclean-stitch';
+
push @deferred_updates, "delete $ffq_prev $prev";
- my $old_head = get_head();
if (is_fast_fwd $old_head, $prev) {
my $differs = get_differs $old_head, $prev;
unless ($differs & ~D_PAT_ADD) {