give eval()s a separate file annotation

rakudo · Feb 12, 2012 · 9481a2c · 9481a2c
1 parent 1200dd8
commit 9481a2c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -159,6 +159,7 @@ sub eval(Str $code, :$lang = 'perl6') {
         $P0 = getinterp
         %r = $P0['context';1]
     };
+    my $?FILES   := 'eval_' ~ (state $no)++;
     my $compiler := pir::compreg__PS($lang);
     my $pbc      := $compiler.compile($code, :outer_ctx($caller_ctx), :global(GLOBAL));
     nqp::atpos($pbc, 0).set_outer_ctx($caller_ctx);