diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-26 18:33:45 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-26 19:20:54 +0100 |
commit | 65c0c0413e6fbd324127090ab55d71b2e5718423 (patch) | |
tree | a180e8bbf6d2a00887289c12cf943ac802883bc3 /Debian/Dgit.pm | |
parent | 3413485f2c7fbb36dfc4c6bf42176cd228511985 (diff) |
ref updates: Break out git_reflog_action_msg
No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 0a99faa..5106f85 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -51,7 +51,8 @@ BEGIN { git_rev_parse git_cat_file git_get_ref git_get_symref git_for_each_ref git_for_each_tag_referring is_fast_fwd - git_check_unmodified git_update_ref_cmd + git_check_unmodified + git_reflog_action_msg git_update_ref_cmd $package_re $component_re $deliberately_re $distro_re $versiontag_re $series_filename_re $extra_orig_namepart_re @@ -492,12 +493,18 @@ sub is_fast_fwd ($$) { } } +sub git_reflog_action_msg ($) { + my ($msg) = @_; + my $rla = $ENV{GIT_REFLOG_ACTION}; + $msg = "$rla: $msg" if length $rla; + return $msg; +} + sub git_update_ref_cmd { # returns qw(git update-ref), qw(-m), @_ # except that message may be modified to honour GIT_REFLOG_ACTION my $msg = shift @_; - my $rla = $ENV{GIT_REFLOG_ACTION}; - $msg = "$rla: $msg" if length $rla; + $msg = git_reflog_action_msg $msg; return qw(git update-ref -m), $msg, @_; } |