use readable file names

Author: coke

doc/Language/exceptions.pod6

@@ -19,7 +19,7 @@ Ad-hoc exceptions work just like in traditional Perl 5, one can simply use
 C<die> with a message as to what went wrong:
 
     die "oops, something went wrong";
-    #!> oops, something went wrong in block <unit> at /tmp/0IeSX_XSWO:1
+    #!> oops, something went wrong in block <unit> at my-script.p6:1
 
 =head1 Typed exceptions
 
@@ -31,7 +31,7 @@ L<X::IO::DoesNotExist> exception like so:
 
     die X::IO::DoesNotExist.new(:path("foo/bar"), :trying("zombie copy"))
     #!> Failed to find 'foo/bar' while trying to do '.zombie copy'
-    #!> in block <unit> at /tmp/BgTfZOotgc:1
+    #!> in block <unit> at my-script.p6:1
 
 Note how the object has provided the backtrace with information about what
 went wrong so that hopefully the user of the code can find and correct the
@@ -188,7 +188,7 @@ exception's payload is passed on to the backtrace printing mechanism.
     }
     "OBAI".say;
     #!> foo
-    #!> in block <unit> at /tmp/FbtB60dxVO:1
+    #!> in block <unit> at my-script.p6:1
 
 This example doesn't resume from the point of the exception, however
 it continues after the enclosing block, since the exception was caught, and