diff options
| author | Jan Dubois <jand@activestate.com> | 2007-05-31 06:17:22 -0700 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2007-06-01 07:32:52 +0000 |
| commit | 9983c4560c1aa5c28c332aa2c80d3dec1e245a7c (patch) | |
| tree | 1b0c4a9c8af1a81bb877f9ff26faaaa0f9275d84 /ext/DynaLoader | |
| parent | 4dd8f9b3e73c1cf5316433b1f968dcf927e1f499 (diff) | |
| download | perl-9983c4560c1aa5c28c332aa2c80d3dec1e245a7c.tar.gz | |
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
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index 72450e5e16..5d4d15e4a9 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 |