From d45a224aee98c04bf3038dcda9b258ba5abf0d70 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 22 Jun 2015 18:11:39 +0100
Subject: [PATCH] Avoid use of "my $_", which is not portable

---
 Debian/Dgit.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index 48aae188..37cbc51b 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -211,7 +211,7 @@ sub git_for_each_ref ($$;$) {
 sub git_get_ref ($) {
     # => '' if no such ref
     my ($refname) = @_;
-    my $_ = $refname;
+    local $_ = $refname;
     s{^refs/}{[r]efs/} or die "$refname $_ ?";
     return cmdoutput qw(git for-each-ref --format=%(objectname)), $_;
 }
-- 
2.30.2