Fix breakage caused by @*INC only containing Str

niner · May 4, 2015 · c4292b5 · c4292b5
1 parent 8b3af84
commit c4292b5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -17,7 +17,8 @@ sub native(Sub $sub) {
     state Str $path;
     unless $path {
         for @*INC {
-            if my @files = ($_.files($base) || $_.files("blib/$base")) {
+            my $cur = $_ ~~ Str ?? INCLUDE-SPEC2CUR($_) !! $_;
+            if my @files = ($cur.files($base) || $cur.files("blib/$base")) {
                 my $files = @files[0]<files>;
                 my $tmp = $files{$base} || $files{"blib/$base"};