Use new World.current_file convenience method

rakudo · May 19, 2015 · a6e5e93 · a6e5e93
1 parent c53b603
commit a6e5e93
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1920,14 +1920,7 @@ Compilation unit '$file' contained the following violations:
                         HLL::Compiler.lineof($/.orig, $/.from, :cache(1)));
             }
             else {
-                my $file := nqp::getlexdyn('$?FILES');
-                if nqp::isnull($file) {
-                    $file := '<unknown file>';
-                }
-                elsif !nqp::eqat($file,'/',0) {
-                    $file := nqp::cwd ~ '/' ~ $file;
-                }
-                $past := $*W.add_string_constant($file);
+                $past := $*W.add_string_constant($*W.current_file);
             }
         }
         elsif $past.name() eq '$?RAKUDO_MODULE_DEBUG' {