EVAL passes on unknown named parameters

cygx++ for pointing out we need that
rakudo · Oct 30, 2015 · 4e45f0e · 4e45f0e
1 parent b855790
commit 4e45f0e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -196,7 +196,7 @@ multi sub warn(*@msg) {
     0;
 }
 
-proto sub EVAL(Cool $code, Str() :$lang = 'perl6', PseudoStash :$context) {
+proto sub EVAL(Cool $code, Str() :$lang = 'perl6', PseudoStash :$context, *%n) {
     # First look in compiler registry.
     my $compiler := nqp::getcomp($lang);
     if nqp::isnull($compiler) {