Emit file annotation so backtraces have file names.

rakudo · May 30, 2010 · 34542f7 · 34542f7
1 parent 6e39fe1
commit 34542f7
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -101,6 +101,12 @@ method comp_unit($/, $key?) {
         )
     );
 
+    # Add file annotation.
+    my $file := pir::find_caller_lex__ps('$?FILES');
+    unless pir::isnull($file) {
+        $unit.unshift(PAST::Op.new(:inline(".annotate 'file', '" ~ $file ~ "'")));
+    }
+
     # Remove the outer module package.
     @PACKAGE.shift;