Cache path to p5helper.so in a state variable

niner · Sep 26, 2014 · aa27ba0 · aa27ba0
1 parent 1d3d369
commit aa27ba0
Showing 1 changed file with 11 additions and 7 deletions.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -10,15 +10,19 @@ use NativeCall;
 
 sub native(Sub $sub) {
     my $so = 'p5helper.so';
-    my Str $path;
-    for @*INC {
-        if ($_ ~ "/Inline/$so").IO ~~ :f {
-            $path = $_ ~ "/Inline/$so";
-            trait_mod:<is>($sub, :native($path));
-            return;
+    state Str $path;
+    unless $path {
+        for @*INC {
+            if "$_/Inline/$so".IO ~~ :f {
+                $path = "$_/Inline/$so";
+                last;
+            }
         }
     }
-    die "unable to find $so";
+    unless $path {
+        die "unable to find Inline/$so IN \@*INC";
+    }
+    trait_mod:<is>($sub, :native($path));
 }
 
 class Perl5Object { ... }