This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lvref.t: Fix hash elem tests
authorFather Chrysostomos <sprout@cpan.org>
Sat, 4 Oct 2014 13:31:11 +0000 (06:31 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 11 Oct 2014 07:10:17 +0000 (00:10 -0700)
I was testing against a package hash for the â€˜lexical’ tests.

t/op/lvref.t

index 894a0b5..e5ee655 100644 (file)
@@ -133,7 +133,7 @@ is \$h{a}, \$_, '\$hash{a}';
 \($h{b}) = expect_list_cx;
 is \$h{b}, \$_, '\($hash{a})';
 {
-  my @h;
+  my %h;
   \$h{a} = expect_scalar_cx;
   is \$h{a}, \$_, '\$lexical_array{a}';
   \($h{b}) = expect_list_cx;
@@ -151,7 +151,7 @@ is \$h{b}, \$_, '\($hash{a})';
   is \$h{b}, \$_, '\local $h{a} unwound';
 }
 {
-  my @h;
+  my %h;
   \@h{"a","b"} = expect_list_cx;
   is \$h{a}.\$h{b}, \$_.\$_, '\@hash{indices}';
   \(@h{2,3}) = expect_list_cx;