diff options
Diffstat (limited to 't/close-over.t')
-rw-r--r-- | t/close-over.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/close-over.t b/t/close-over.t index 23b2873..905a3f7 100644 --- a/t/close-over.t +++ b/t/close-over.t @@ -44,7 +44,7 @@ use Test::Requires 'PadWalker'; $b = $b->OUTSIDE; } my @visible_in_outer_scope - = grep { defined and $_ ne '&' } + = grep { defined && length && $_ ne '&' } map { $_->PV } grep { $_->can('PV') } map { $_->PADLIST->ARRAYelt(0)->ARRAY } |