diff options
| author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-06-28 17:30:55 +0100 |
|---|---|---|
| committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-06-29 00:43:18 +0100 |
| commit | cd800af2e4ca8fcf72e17555472af9aa37000b3e (patch) | |
| tree | 1f58356cfd90966065bbc086ba9b8b1d8378e1ad | |
| parent | 359f4592c6035ee027cf283c6af7dcd435038776 (diff) | |
Dgit.pm: Move resolve_upstream_version from git-debrebase
No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
| -rw-r--r-- | Debian/Dgit.pm | 25 | ||||
| -rwxr-xr-x | git-debrebase | 22 |
2 files changed, 24 insertions, 23 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 892ebf9..912a524 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -45,7 +45,8 @@ BEGIN { dep14_version_mangle debiantags debiantag_new debiantag_maintview - upstreamversion upstream_commitish_search + upstreamversion + upstream_commitish_search resolve_upstream_version stripepoch source_file_leafname is_orig_file_of_p_v server_branch server_ref stat_exists link_ltarget rename_link_xf @@ -628,6 +629,28 @@ sub upstream_commitish_search ($$) { } } +sub resolve_upstream_version ($$) { + my ($new_upstream, $upstream_version) = @_; + + my $used = $new_upstream; + if (!defined $new_upstream) { + my @tried; + $new_upstream = upstream_commitish_search $upstream_version, \@tried; + if (!length $new_upstream) { + fail f_ + "Could not determine appropriate upstream commitish.\n". + " (Tried these tags: %s)\n". + " Check version, and specify upstream commitish explicitly.", + "@tried"; + } + $used = $tried[-1]; + } + $new_upstream = git_rev_parse $new_upstream; + + return ($new_upstream, $used); + # used is a human-readable idea of what we found +} + sub is_fast_fwd ($$) { my ($ancestor,$child) = @_; my @cmd = (qw(git merge-base), $ancestor, $child); diff --git a/git-debrebase b/git-debrebase index eb585e3..39b700a 100755 --- a/git-debrebase +++ b/git-debrebase @@ -1994,28 +1994,6 @@ sub do_stitch ($;$) { stitch($dangling_head, $ffq_prev, $gdrlast, $ffq_prev_commitish, $prose); } -sub resolve_upstream_version ($$) { - my ($new_upstream, $upstream_version) = @_; - - my $used = $new_upstream; - if (!defined $new_upstream) { - my @tried; - $new_upstream = upstream_commitish_search $upstream_version, \@tried; - if (!length $new_upstream) { - fail f_ - "Could not determine appropriate upstream commitish.\n". - " (Tried these tags: %s)\n". - " Check version, and specify upstream commitish explicitly.", - "@tried"; - } - $used = $tried[-1]; - } - $new_upstream = git_rev_parse $new_upstream; - - return ($new_upstream, $used); - # used is a human-readable idea of what we found -} - sub cmd_new_upstream () { # automatically and unconditionally launders before rebasing # if rebase --abort is used, laundering has still been done |