Skip to content
Permalink
Browse files

Port fix from 218f8c4 to EVAL :lang<Perl5>

Many thanks to ugexe++ for pointing this out!
  • Loading branch information...
niner committed Jul 2, 2018
1 parent 72ccd43 commit 66683080974fb843406803c800988e03841ac5aa
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/core/ForeignCode.pm6
@@ -68,7 +68,7 @@ proto sub EVAL($code is copy where Blob|Cool|Callable, Str() :$lang = 'perl6', P

multi sub EVAL($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)++;
my $?FILES := 'EVAL_' ~ Rakudo::Internals::EvalIdSource.next-id;
state $p5;
unless $p5 {
{

0 comments on commit 6668308

Please sign in to comment.
You can’t perform that action at this time.