summaryrefslogtreecommitdiff
path: root/Debian/Dgit.pm
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2018-06-26 18:33:45 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2018-06-26 19:20:54 +0100
commit65c0c0413e6fbd324127090ab55d71b2e5718423 (patch)
treea180e8bbf6d2a00887289c12cf943ac802883bc3 /Debian/Dgit.pm
parent3413485f2c7fbb36dfc4c6bf42176cd228511985 (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.pm13
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, @_;
}