[Reproducible-commits] [libextutils-depends-perl] 138/187: use DynaLoader::mod2fname if available

[Maria Valentina Marin Rodrigues]

This is an automated email from the git hooks/post-receive script.

akira-guest pushed a commit to branch pu/reproducible_builds
in repository libextutils-depends-perl.

commit 1867f32fdfa4f4fb2b83bbb9fedbecd6623edae4
Author: Brian Fraser <fraserbn at gmail.com>
Date:   Fri Jul 25 17:22:54 2014 +0200

    use DynaLoader::mod2fname if available
    
    mod2fname isn't exactly well documented, but basically, some
    platforms have some unusual requirements for their library
    names, so instead of, say, Utils.so for List::Utils, you
    might end up with PL_List__Utils.so; what mod2fname does is
    get you that library name.
    
    There's currently two systems with mod2fname defined, VMS
    and Android. OS/2 uses it as well, but the OS/2 port isn't
    functional at the moment. Additionally, Windows may start
    using it in the near future.
---
 lib/ExtUtils/Depends.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/ExtUtils/Depends.pm b/lib/ExtUtils/Depends.pm
index 2a5b527..8b7f448 100644
--- a/lib/ExtUtils/Depends.pm
+++ b/lib/ExtUtils/Depends.pm
@@ -320,6 +320,10 @@ sub find_extra_libs {
 	my @found_libs = ();
 	foreach my $name (keys %{ $self->{deps} }) {
 		(my $stem = $name) =~ s/^.*:://;
+		if ( defined &DynaLoader::mod2fname ) {
+			 my @parts = split /::/, $name;
+			 $stem = DynaLoader::mod2fname([@parts]);
+		}
 		my $lib = $mapper->($stem);
 		my $pattern = qr/$lib$/;
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/libextutils-depends-perl.git