Description: fix 'Can't redeclare "my" in "my" ...' error in 5.24
Origin: vendor
Bug-Debian: https://bugs.debian.org/825525
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2016-06-05
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=106772
Bug: https://rt.cpan.org/Ticket/Display.html?id=106772

--- a/lib/Git/PurePerl.pm
+++ b/lib/Git/PurePerl.pm
@@ -156,7 +156,7 @@
         foreach my $line ( $packed_refs->slurp( chomp => 1 ) ) {
             next if $line =~ /^#/;
             next if $line =~ /^\^/;
-            my ( $sha1, my $name ) = split ' ', $line;
+            my ( $sha1, $name ) = split ' ', $line;
             push @names, $name;
         }
     }
@@ -202,7 +202,7 @@
         my $last_sha1;
         foreach my $line ( $packed_refs->slurp( chomp => 1 ) ) {
             next if $line =~ /^#/;
-            my ( $sha1, my $name ) = split ' ', $line;
+            my ( $sha1, $name ) = split ' ', $line;
             $sha1 =~ s/^\^//;
             $name ||= $last_name;