load files outside of @inc when path is absolute

rakudo-p5 · Aug 17, 2014 · 113076e · 113076e
1 parent cee242f
commit 113076e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl5/ModuleLoader.pm b/src/Perl5/ModuleLoader.pm
@@ -41,12 +41,16 @@ class Perl5::ModuleLoader {
         my %INC := $INC.FLATTENABLE_HASH() if nqp::defined($INC);
         my @INC := %INC<Perl5>.FLATTENABLE_LIST() if %INC<Perl5>;
         my %chosen;
+        my $path = $file.path if $file;
         if self.candidates($module_name, :$file, :@INC)[0] -> $candi {
             %chosen<pm> = ~$candi.path;
             $candi.has-precomp ??
                 ?? (%chosen<load> = %chosen<key> = %chosen<pm> ~ '.' ~ $candi.precomp-ext)
                 !! (%chosen<key>  = %chosen<pm>)
         }
+        elsif $file && ($path.is-absolute || $file ~~ / './' | '.\\' /) && $path.e { #'
+            %chosen<pm> = %chosen<key> = ~$path.absolute;
+        }
         elsif $file && self.files($file, :@INC)[0] -> $candi {
             %chosen<pm> = %chosen<key> = $candi<files>{$file};
         }