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 | |
| parent | 93ce34fc2dcbe6ea120825aaf4b147a9cd96c41b (diff) | |
| download | eval-closure-1855ce2cfb1b789caccd3e2c872d88422e8c5e95.tar.gz eval-closure-1855ce2cfb1b789caccd3e2c872d88422e8c5e95.zip | |
fix tests on 5.21.7 (sprout, #4)
| -rw-r--r-- | Changes | 1 | ||||
| -rw-r--r-- | t/close-over.t | 4 |
2 files changed, 3 insertions, 2 deletions
@@ -1,6 +1,7 @@ Revision history for Eval-Closure {{$NEXT}} + - fix tests under blead (sprout, #4) 0.11 2013-07-30 - add "alias => 1" option for making closure variables actually alias the 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; |