diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-17 00:36:55 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-17 11:51:00 +0100 |
commit | 11feba1f44552f3232c52f4f2a55ff7f2f0c6175 (patch) | |
tree | a48b64605edde053cd3fbdde006969a45f74f659 /Debian/Dgit.pm | |
parent | ca261d36408442d8f3beeac12434af95810b1e32 (diff) |
Dgit.pm: gdr_ffq_prev_branchinfo: move from git-debrebase
dgit is going to want this too, for interoperability.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 3202180..960f505 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -64,6 +64,7 @@ BEGIN { shellquote printcmd messagequote $negate_harmful_gitattrs changedir git_slurp_config_src + gdr_ffq_prev_branchinfo playtree_setup); # implicitly uses $main::us %EXPORT_TAGS = ( policyflags => [qw(NOFFCHECK FRESHREPO NOCOMMITCHECK)], @@ -514,6 +515,22 @@ sub git_slurp_config_src ($) { return $r; } +sub gdr_ffq_prev_branchinfo ($) { + my ($symref) = @_; + # => ('status', "message", [$symref, $ffq_prev, $gdrlast]) + # 'status' may be + # branch message is undef + # weird-symref } no $symref, + # notbranch } no $ffq_prev + return ('detached', 'detached HEAD') unless defined $symref; + return ('weird-symref', 'HEAD symref is not to refs/') + unless $symref =~ m{^refs/}; + my $ffq_prev = "refs/$ffq_refprefix/$'"; + my $gdrlast = "refs/$gdrlast_refprefix/$'"; + printdebug "ffq_prev_branchinfo branch current $symref\n"; + return ('branch', undef, $symref, $ffq_prev, $gdrlast); +} + # ========== playground handling ========== # terminology: |