Skip to content
Permalink
Browse files

Don't lower $_ when using a P5* module

  • Loading branch information...
jnthn committed Jan 4, 2019
1 parent 8aa7330 commit 11884e032d521e7d92d6d1f65bec4631d24d33ec
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/Perl6/World.nqp
@@ -1301,6 +1301,8 @@ class Perl6::World is HLL::World {
self.do_import($/, $comp_unit.handle, $name, $arglist);
self.import_EXPORTHOW($/, $comp_unit.handle);
$RMD("Imports for '$name' done") if $RMD;
# Workaround: P5foo modules rely on finding $_; don't lower it.
$*CAN_LOWER_TOPIC := 0 if nqp::eqat($name, 'P5', 0);
}
else {
nqp::die("Don't know how to 'no $name' just yet");

0 comments on commit 11884e0

Please sign in to comment.
You can’t perform that action at this time.