ref updates: Honour GIT_REFLOG_ACTION everywhere.

[dgit.git] / Debian / Dgit.pm

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index 2bac4859f887ee5a17788755e00cfa5537503669..0a99faa4c2864dd0e543628561f09cf3c74ae560 100644 (file)
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -496,6 +496,8 @@ 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;
     return qw(git update-ref -m), $msg, @_;
 }