Add a better failsafe for finding p5helper

niner · May 5, 2015 · f6e2993 · f6e2993
1 parent 438d023
commit f6e2993
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -34,7 +34,13 @@ sub native(Sub $sub) {
         }
     }
     unless $path {    # TEMPORARY !!!!
-        $path = $?FILE.substr(0,*-9) ~ $so;
+        for @*INC.grep(Str) {
+            my $file = "$_.substr(5)/Inline/$so";
+            if $file.IO.e {
+                $path = $file;
+                last;
+            }
+        }
     }
     unless $path {
         die "unable to find Inline/$so IN \@*INC";