Trim the mangled name from nm on at least some platforms that require it

PerlFFI · Jan 31, 2015 · c732569 · c732569
1 parent ce62f03
commit c732569
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -9,3 +9,5 @@
 *.o
 *.dll
 *.so
+*.bundle
+*.dylib
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl module FFI::Platypus::Lang::CPP
 
+  - Trim the mangled name from nm on at least some platforms
+    that require it.
+
 0.02  Jan 30, 2015
   - Documentation fixes
 

diff --git a/lib/FFI/Platypus/Lang/CPP.pm b/lib/FFI/Platypus/Lang/CPP.pm
@@ -314,6 +314,7 @@ sub mangler
           my $cpp_symbol = `c++filt $c_symbol`;
           chomp $cpp_symbol;
           return if $c_symbol eq $cpp_symbol;
+          $c_symbol =~ s{^_}{} if $^O =~ /^(darwin)$/;
           $mangle{$cpp_symbol} = $c_symbol;
         },
       } ],