X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fimmutable%2Finline_close_over.t;h=f266176634b5bcc3310827fac9e3a9ea0a9f41b1;hb=refs%2Fheads%2Fdiakopter-jit-evals;hp=44a1edccd169f5e9f9737981963826a91084d78f;hpb=d0efb39cebabfeca0833ed43ea155ce03a1556c4;p=gitmo%2FMoose.git

diff --git a/t/immutable/inline_close_over.t b/t/immutable/inline_close_over.t
index 44a1edc..f266176 100644
--- a/t/immutable/inline_close_over.t
+++ b/t/immutable/inline_close_over.t
@@ -63,7 +63,10 @@ sub close_over_ok {
     my ($package, $method) = @_;
     my $visitor = Test::Visitor->new;
     my $code = $package->meta->find_method_by_name($method)->body;
-    $code = $code->(undef, $code) if ref($code) eq 'RuNNeR';
+    if (ref($code) eq 'RuNNeR') {
+        $code->(undef);
+        $code = $package->meta->find_method_by_name($method)->body;
+    }
     $visitor->visit($code);
     if ($visitor->pass) {
         pass("${package}::${method} didn't close over anything complicated");