Merge pull request #473 from niner/nom

Use 'Perl5' as consistent name for EVAL and use :from
rakudo · Jul 18, 2015 · 0bed6c5 · 0bed6c5
2 parents 75c5e17 + 4337b2a
commit 0bed6c5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -185,7 +185,7 @@ proto sub EVAL(Cool $code, :$lang = 'perl6', PseudoStash :$context) {
     nqp::forceouterctx(nqp::getattr($compiled, ForeignCode, '$!do'), $eval_ctx);
     $compiled();
 }
-multi sub EVAL(Cool $code, Str :$lang where { ($lang // '') eq 'perl5' }, PseudoStash :$context) {
+multi sub EVAL(Cool $code, Str :$lang where { ($lang // '') eq 'Perl5' }, PseudoStash :$context) {
     my $eval_ctx := nqp::getattr(nqp::decont($context // CALLER::), PseudoStash, '$!ctx');
     my $?FILES   := 'EVAL_' ~ (state $no)++;
     state $p5;