From 6af62b64299442af816feff47b636ead11045817 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 5 Apr 2018 20:20:30 +0100 Subject: git-debrebase: introduce ffq_prev_info (nfc) Signed-off-by: Ian Jackson --- git-debrebase | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) (limited to 'git-debrebase') diff --git a/git-debrebase b/git-debrebase index 866b0de..00e5588 100755 --- a/git-debrebase +++ b/git-debrebase @@ -1032,6 +1032,18 @@ sub record_ffq_auto () { } } +sub ffq_prev_info () { + # => ($ffq_prev, $gdrlast, $ffq_prev_commitish) + 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; + return ($ffq_prev, $gdrlast, $ffq_prev_commitish); +} + sub stitch ($$$$$) { my ($old_head, $ffq_prev, $gdrlast, $ffq_prev_commitish, $prose) = @_; @@ -1273,13 +1285,8 @@ sub cmd_stitch () { my $prose = ''; GetOptions('prose=s', \$prose) or die badusage("bad options to stitch"); badusage "no arguments allowed" if @ARGV; - 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; + + my ($ffq_prev, $gdrlast, $ffq_prev_commitish) = ffq_prev_info(); if (!$ffq_prev_commitish) { fail "No ffq-prev to stitch." unless $opt_noop_ok; return; -- cgit v1.2.3