Make is_pseudo_package work on JVM.

Fixes S02-names/indirect.t, possibly more.
rakudo · Jun 21, 2013 · 51d0246 · 51d0246
1 parent 36f36de
commit 51d0246
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -1940,10 +1940,11 @@ class Perl6::World is HLL::World {
 
         # Checks if a name component is a pseudo-package.
         method is_pseudo_package($comp) {
+            !nqp::istype($comp, QAST::Node) && (
             $comp eq 'CORE' || $comp eq 'SETTING' || $comp eq 'UNIT' ||
             $comp eq 'OUTER' || $comp eq 'MY' || $comp eq 'OUR' ||
             $comp eq 'PROCESS' || $comp eq 'GLOBAL' || $comp eq 'CALLER' ||
-            $comp eq 'DYNAMIC' || $comp eq 'COMPILING' || $comp eq 'PARENT'
+            $comp eq 'DYNAMIC' || $comp eq 'COMPILING' || $comp eq 'PARENT')
         }
     }