Set $?FILES in module loader, so we end up with the correct filename …

…annotation in modules.
rakudo · May 30, 2010 · ff31b59 · ff31b59
1 parent 3d540b8
commit ff31b59
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Module/Loader.pm b/src/Perl6/Module/Loader.pm
@@ -43,6 +43,7 @@ method need($name, %name_adverbs?) {
         # XXX We can try to write the compiled PIR to disk so the next
         # time around it's fast.
         unless $loaded_pir {
+            my $?FILES := pir::substr($pm_file, 0, 2) eq './' ?? pir::substr($pm_file, 2) !! $pm_file;
             my $fh     := pir::open__PSS($pm_file, 'r');
             my $source := $fh.readall();
             $fh.close();