Skip to content

Commit 08b2d9a

Browse files
gregoabroquaint
authored andcommitted
fix 'Can't redeclare "my" in "my" ...' error in 5.24
Using a my within a my on in 5.24 is now an error so don't do that any more. Thanks to gregor hermann for submitting the patch!
1 parent b6c821d commit 08b2d9a

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

lib/Git/PurePerl.pm

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -156,7 +156,7 @@ sub ref_names {
156156
foreach my $line ( $packed_refs->slurp( chomp => 1 ) ) {
157157
next if $line =~ /^#/;
158158
next if $line =~ /^\^/;
159-
my ( $sha1, my $name ) = split ' ', $line;
159+
my ( $sha1, $name ) = split ' ', $line;
160160
push @names, $name;
161161
}
162162
}
@@ -202,7 +202,7 @@ sub ref_sha1 {
202202
my $last_sha1;
203203
foreach my $line ( $packed_refs->slurp( chomp => 1 ) ) {
204204
next if $line =~ /^#/;
205-
my ( $sha1, my $name ) = split ' ', $line;
205+
my ( $sha1, $name ) = split ' ', $line;
206206
$sha1 =~ s/^\^//;
207207
$name ||= $last_name;
208208

0 commit comments

Comments
 (0)