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

rakudo · Jan 4, 2019 · 11884e0 · 11884e0
1 parent 8aa7330
commit 11884e0
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Perl6/World.nqp b/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");