Preserve compiler version in EVALs

Previously it was always reset to the default one. Fixes #3263
rakudo · Oct 23, 2019 · 0eea939 · 0eea939
1 parent c745d6b
commit 0eea939
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -31,7 +31,7 @@ class Perl6::Compiler is HLL::Compiler {
             $!language_version
         }
         else {
-            $!language_version := self.config<language-version>
+            $!language_version := %*COMPILING<%?OPTIONS><language_version> || self.config<language-version>
         }
     }
     method language_modifier() {

diff --git a/src/core.c/ForeignCode.pm6 b/src/core.c/ForeignCode.pm6
@@ -64,6 +64,7 @@ proto sub EVAL(
         :outer_ctx($eval_ctx),
         :global(GLOBAL),
         :mast_frames(mast_frames),
+        :language_version(nqp::getcomp('perl6').language_version),
         |(:optimize($_) with nqp::getcomp('perl6').cli-options<optimize>),
         |(%(:grammar($LANG<MAIN>), :actions($LANG<MAIN-actions>)) if $LANG);