From ff31b59fb88258147ade70f861997bd8d84b9d9a Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Sun, 30 May 2010 13:55:31 +0200
Subject: [PATCH] Set $?FILES in module loader, so we end up with the correct
 filename annotation in modules.

---
 src/Perl6/Module/Loader.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Perl6/Module/Loader.pm b/src/Perl6/Module/Loader.pm
index 318f3a8b304..ed76b0d5c4a 100644
--- 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();