Fix nativecall tests; lizmat++

rakudo · Mar 7, 2015 · 161550a · 161550a
1 parent 5acaa4a
commit 161550a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -2567,7 +2567,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
             if $*SOFT {
                 $*W.find_symbol(['&infix:<does>'])($code, $*W.find_symbol(['SoftRoutine']));
             }
-            elsif !nqp::can($code, 'postcircumfix:<( )>') {
+            elsif !nqp::can($code, 'invoke') && !nqp::can($code, 'postcircumfix:<( )>') {
                 my $phasers :=
                   nqp::getattr($code,$*W.find_symbol(['Block']),'$!phasers');
                 if nqp::isnull($phasers) || !nqp::p6bool($phasers) {