From 1855ce2cfb1b789caccd3e2c872d88422e8c5e95 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 17 Jan 2015 18:13:05 -0500
Subject: fix tests on 5.21.7 (sprout, #4)

---
 t/close-over.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 't')

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;
 
-- 
cgit v1.2.3-54-g00ecf