diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-10-04 06:31:11 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-11 00:10:17 -0700 |
commit | 901f0970a4823fdc2f5f716238395ea1a765c12f (patch) | |
tree | eb86151879a0440ce06e0db1e6c2e67f56ea8fd8 | |
parent | 3ad7d3042169c5402b34cdc33048c5488be19f2c (diff) | |
download | perl-901f0970a4823fdc2f5f716238395ea1a765c12f.tar.gz |
lvref.t: Fix hash elem tests
I was testing against a package hash for the ‘lexical’ tests.
-rw-r--r-- | t/op/lvref.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/lvref.t b/t/op/lvref.t index 894a0b54db..e5ee655d61 100644 --- a/t/op/lvref.t +++ b/t/op/lvref.t @@ -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; |