Fixes to loading from current executing module functionality.

arnsholt · Jan 13, 2012 · 4ed29ae · 4ed29ae
1 parent cdfbfa9
commit 4ed29ae
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/NativeCall.pm6 b/lib/NativeCall.pm6
@@ -83,9 +83,10 @@ my role Native[Routine $r, Str $libname] {
                 nqp::push($arg_info, param_hash_for($p))
             }
             my str $conv = self.?native_call_convention || '';
-            my $realname = $libname && $libname !~~ /\.\w+$/ ??
-                "$libname$*VM<config><load_ext>" !!
-                $libname;
+            my $realname = 
+                !$libname.DEFINITE   ?? "" !!
+                $libname ~~ /\.\w+$/ ?? $libname !!
+                                        "$libname$*VM<config><load_ext>";
             nqp::buildnativecall(self,
                 nqp::unbox_s($realname),    # library name
                 nqp::unbox_s($r.name),      # symbol to call