This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3ad7d30
)
lvref.t: Fix hash elem tests
author
Father Chrysostomos
<sprout@cpan.org>
Sat, 4 Oct 2014 13:31:11 +0000
(06:31 -0700)
committer
Father 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
patch
|
blob
|
blame
|
history
diff --git
a/t/op/lvref.t
b/t/op/lvref.t
index
894a0b5
..
e5ee655
100644
(file)
--- 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;