Skip to content
Browse files

Make is_pseudo_package work on JVM.

Fixes S02-names/indirect.t, possibly more.
  • Loading branch information...
1 parent 36f36de commit 51d0246bed80b546411f0f4d4fa6c372c5a1b68a @jnthn jnthn committed Jun 21, 2013
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/Perl6/World.nqp
View
3 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')
}
}

0 comments on commit 51d0246

Please sign in to comment.
Something went wrong with that request. Please try again.