diff options
| author | Jan Dubois <jand@activestate.com> | 1998-10-21 02:55:51 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-25 06:50:19 +0000 |
| commit | bb3913c763f2f2f367485054e71091c3a50d2e26 (patch) | |
| tree | ceeaf697105c02c8b79bf84af1a1403283b5133b /ext/DynaLoader | |
| parent | e200fe592a4997f548ebec319b6bc13065a09d24 (diff) | |
| download | perl-bb3913c763f2f2f367485054e71091c3a50d2e26.tar.gz | |
Make _really_ sure Dynaloader.xs code is initialized only once
Message-ID: <36380269.55370608@smtp1.ibm.net>
p4raw-id: //depot/perl@2067
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index 4c4155985d..cf7d7085bc 100644 --- a/ext/DynaLoader/DynaLoader_pm.PL +++ b/ext/DynaLoader/DynaLoader_pm.PL @@ -101,7 +101,8 @@ push(@dl_library_path, split(/:/, $ENV{LD_LIBRARY_PATH})) # No prizes for guessing why we don't say 'bootstrap DynaLoader;' here. -boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader); +boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) && + !defined(&dl_load_file); if ($dl_debug) { |