Add failsafe for finding the p5helper

niner · May 5, 2015 · 438d023 · 438d023
1 parent 093878c
commit 438d023
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -28,10 +28,14 @@ sub native(Sub $sub) {
                 # with a different filename (a number with no extension) that NativeCall doesn't
                 # know how to load. We do this copy to fix the filename.
                 $path = $*SPEC.tmpdir ~ '/' ~ $*PID ~ '-' ~ $so;
+
                 $tmp.IO.copy($path);
             }
         }
     }
+    unless $path {    # TEMPORARY !!!!
+        $path = $?FILE.substr(0,*-9) ~ $so;
+    }
     unless $path {
         die "unable to find Inline/$so IN \@*INC";
     }