From: Jan Dubois <jand@activestate.com>
Date: Thu, 31 May 2007 13:17:22 +0000 (-0700)
Subject: Fix DynaLoader::dl_findfile() to locate .so files again
X-Git-Tag: accepted/trunk/20130322.191538~15150
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9983c4560c1aa5c28c332aa2c80d3dec1e245a7c;p=platform%2Fupstream%2Fperl.git

Fix DynaLoader::dl_findfile() to locate .so files again
From: "Jan Dubois" <jand@activestate.com>
Message-ID: <00a501c7a3c0$b2d880d0$18898270$@com>

p4raw-id: //depot/perl@31324
---

diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL
index 72450e5..5d4d15e 100644
--- a/ext/DynaLoader/DynaLoader_pm.PL
+++ b/ext/DynaLoader/DynaLoader_pm.PL
@@ -492,7 +492,7 @@ sub dl_findfile {
         my(@names, $name);    # what filenames to look for
         if (m:-l: ) {          # convert -lname to appropriate library name
             s/-l//;
-            push(@names,"lib$_.<<=to_string($Config::Config{'so'})>>");
+            push(@names,"lib$_.<<=$dl_so>>");
             push(@names,"lib$_.a");
         } else {                # Umm, a bare name. Try various alternatives:
             # these should be ordered with the most likely first