From f9943a285ad7ff416c8eef0fe98414fe649ee96a Mon Sep 17 00:00:00 2001
From: Martin Berends <mberends@autoexec.demon.nl>
Date: Sun, 20 Jun 2010 01:59:07 +0100
Subject: [PATCH] [Perl6/Module/Loader.pm] correctly derive pre-compiled .pir
 filename from both .pm and .pm6 source names

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

diff --git a/src/Perl6/Module/Loader.pm b/src/Perl6/Module/Loader.pm
index 988dffb7763..5c6257797f1 100644
--- a/src/Perl6/Module/Loader.pm
+++ b/src/Perl6/Module/Loader.pm
@@ -30,7 +30,7 @@ method need($name, %name_adverbs?) {
     # Need not load file if we already did so.
     unless %LOADED{$pm_file} {
         # Is there a pre-compiled PIR version?
-        my $pir_file := pir::substr__SSII($pm_file, 0, pir::length__IS($pm_file) - 2) ~ 'pir';
+        my $pir_file := pir::substr__SSII($pm_file, 0, pir::index__ISSi($pm_file, '.', pir::length__IS($pm_file)-4)) ~ '.pir';
         my $loaded_pir := 0;
         if pir::stat__ISI($pir_file, 0) {
             # XXX We really should check if it's newer than the .pm file