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

Many thanks to ugexe++ for pointing this out!
rakudo · Jul 2, 2018 · 6668308 · 6668308
1 parent 72ccd43
commit 6668308
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/ForeignCode.pm6 b/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 {
         {