From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 22 Jun 2015 17:11:39 +0000 (+0100)
Subject: Avoid use of "my $_", which is not portable
X-Git-Tag: debian/0.30~73
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=d45a224aee98c04bf3038dcda9b258ba5abf0d70

Avoid use of "my $_", which is not portable
---

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)), $_;
 }