In perl.git, the branch sprout/lvref has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ff90c4ed54ae357db345125fbe1371441cc3a10f?hp=4aa0ef96757f594b2200b1374e05a98412abc307>
- Log ----------------------------------------------------------------- commit ff90c4ed54ae357db345125fbe1371441cc3a10f Author: Father Chrysostomos <[email protected]> Date: Sat Oct 4 06:35:29 2014 -0700 lvref.t: Remove temporary eval & skip M t/op/lvref.t commit 216ef8efc21a827330df33550202021630676b6e Author: Father Chrysostomos <[email protected]> Date: Sat Oct 4 06:31:11 2014 -0700 lvref.t: Fix hash elem tests I was testing against a package hash for the âlexicalâ tests. M t/op/lvref.t ----------------------------------------------------------------------- Summary of changes: t/op/lvref.t | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/t/op/lvref.t b/t/op/lvref.t index 894a0b5..d234218 100644 --- a/t/op/lvref.t +++ b/t/op/lvref.t @@ -36,7 +36,7 @@ no warnings 'experimental::lvalue_refs'; # Scalars -eval '\$x = \$y'; +\$x = \$y; is \$x, \$y, '\$pkg_scalar = ...'; my $m; \$m = \$y; @@ -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; @@ -171,7 +171,7 @@ package ArrayTest { sub expect_scalar_cx { wantarray ? 0 : \@ThatArray } sub expect_list_cx { wantarray ? (\$_,\$_) : 0 } sub expect_list_cx_a { wantarray ? (\@ThatArray)x2 : 0 } - eval '\@a = expect_scalar_cx'; + \@a = expect_scalar_cx; is \@a, \@ThatArray, '\@pkg'; my @a; \@a = expect_scalar_cx; @@ -201,10 +201,10 @@ package ArrayTest { } is \@h, $old, '\local @a unwound'; $old = \@i; - eval q{ + { (\local @i) = \@ThatArray; is \@i, \@ThatArray, '(\local @a)'; - } or do { SKIP: { ::skip 'unimplemented' } }; + } is \@i, $old, '(\local @a) unwound'; } for (1,2) { @@ -247,10 +247,10 @@ package HashTest { } is \%h, $old, '\local %a unwound'; $old = \%i; - eval q{ + { (\local %i) = \%ThatHash; is \%i, \%ThatHash, '(\local %a)'; - } or do { SKIP: { ::skip 'unimplemented' } }; + } is \%i, $old, '(\local %a) unwound'; } for (1,2) { -- Perl5 Master Repository
