Don't load -M specs for each EVAL

rakudo · May 19, 2015 · f17b413 · f17b413
1 parent 27e531b
commit f17b413
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -380,10 +380,12 @@ class Perl6::World is HLL::World {
             }
         }
 
-        my $M := %*COMPILING<%?OPTIONS><M>;
-        if nqp::defined($M) {
-            for nqp::islist($M) ?? $M !! [$M] -> $longname {
-                self.do_pragma_or_load_module($/,1,$longname);
+        unless $in_eval {
+            my $M := %*COMPILING<%?OPTIONS><M>;
+            if nqp::defined($M) {
+                for nqp::islist($M) ?? $M !! [$M] -> $longname {
+                    self.do_pragma_or_load_module($/,1,$longname);
+                }
             }
         }
     }