and update the symbol table when appropriate.

[gitmo/Moose.git] / t / immutable / inline_close_over.t

diff --git a/t/immutable/inline_close_over.t b/t/immutable/inline_close_over.t
index 44a1edc..f266176 100644 (file)
--- 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");