diff options
author | Jesse Luehrs <doy@tozt.net> | 2015-01-17 18:13:05 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2015-01-17 18:13:41 -0500 |
commit | 1855ce2cfb1b789caccd3e2c872d88422e8c5e95 (patch) | |
tree | 00dff4f9eb2c99c5a741f2f7a4a0f4361be20737 /t | |
parent | 93ce34fc2dcbe6ea120825aaf4b147a9cd96c41b (diff) | |
download | eval-closure-1855ce2cfb1b789caccd3e2c872d88422e8c5e95.tar.gz eval-closure-1855ce2cfb1b789caccd3e2c872d88422e8c5e95.zip |
fix tests on 5.21.7 (sprout, #4)
Diffstat (limited to 't')
-rw-r--r-- | t/close-over.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/close-over.t b/t/close-over.t index 254ec40..23b2873 100644 --- a/t/close-over.t +++ b/t/close-over.t @@ -44,9 +44,9 @@ use Test::Requires 'PadWalker'; $b = $b->OUTSIDE; } my @visible_in_outer_scope - = grep { $_ ne '&' } + = grep { defined and $_ ne '&' } map { $_->PV } - grep { $_->isa('B::PV') } + grep { $_->can('PV') } map { $_->PADLIST->ARRAYelt(0)->ARRAY } @scopes; |