diff options
Diffstat (limited to 't/close-over.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; |