diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-04-05 20:20:30 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-16 16:07:01 +0100 |
commit | 6af62b64299442af816feff47b636ead11045817 (patch) | |
tree | 970bb4f7eb27af749a9cd8da9feb21f120989277 /git-debrebase | |
parent | 9bab0fa49d1ed2d47a3a02ab9c4db1d721b8752e (diff) |
git-debrebase: introduce ffq_prev_info (nfc)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'git-debrebase')
-rwxr-xr-x | git-debrebase | 21 |
1 files changed, 14 insertions, 7 deletions
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; |