This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
substr.t: typo
authorFather Chrysostomos <sprout@cpan.org>
Sat, 2 Dec 2017 15:37:15 +0000 (07:37 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 2 Dec 2017 15:37:15 +0000 (07:37 -0800)
t/op/substr.t

index 9becaf7..c951fe2 100644 (file)
@@ -912,7 +912,7 @@ fresh_perl_is('$0 = "/usr/bin/perl"; substr($0, 0, 0, $0)', '', {}, "(perl #1293
 { # [perl #132527]
     use feature 'refaliasing';
     no warnings 'experimental::refaliasing';
-    my $h;
+    my %h;
     \$h{foo} = \(my $bar = "baz");
     substr delete $h{foo}, 1, 1, o=>;
     is $bar, boz => 'first arg to 4-arg substr is loose lvalue context';