Permalink
Browse files

Update library name handling to NQP handling extensions.

  • Loading branch information...
1 parent 3f79122 commit aa0436cd953a4fe62f7d1dd3c94198329bbaf8e6 @arnsholt arnsholt committed Sep 1, 2012
Showing with 1 addition and 4 deletions.
  1. +1 −4 lib/NativeCall.pm6
View
@@ -111,10 +111,7 @@ my role Native[Routine $r, Str $libname] {
unless $!setup {
my Mu $arg_info := param_list_for($r.signature);
my str $conv = self.?native_call_convention || '';
- my $realname =
- !$libname.DEFINITE ?? "" !!
- $libname ~~ /\.\w+$/ ?? $libname !!
- "$libname$*VM<config><load_ext>";
+ my $realname = !$libname.DEFINITE ?? "" !! $libname;
nqp::buildnativecall(self,
nqp::unbox_s($realname), # library name
nqp::unbox_s(self.?native_symbol // $r.name), # symbol to call

0 comments on commit aa0436c

Please sign in to comment.