- my ($status, $message, $current, $ffq_prev, $gdrlast)
- = ffq_prev_branchinfo();
- if ($status ne 'branch') {
- fproblem $status, "could not check ffq-prev: $message";
- fproblems_maybe_bail();
- }
- my $ffq_prev_commitish = $ffq_prev && git_get_ref $ffq_prev;
- if (!$ffq_prev_commitish) {
- fail "No ffq-prev to stitch." unless $opt_noop_ok;
- return;
- }
- my $old_head = get_head();
-
- keycommits $old_head, \&fproblem, \&fproblem, \&fproblem;
-
- stitch($old_head, $ffq_prev, $gdrlast, $ffq_prev_commitish, $prose);