diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-25 18:11:53 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-25 18:11:53 +0000 |
| commit | b4cea2271f29371e2e2e0dc880d921b95d676b12 (patch) | |
| tree | 6eb3714c4b0dc5d456599713112f958e5458b1ee /ext/DynaLoader/DynaLoader_pm.PL | |
| parent | 6df41af287665da86827e04cbbf0dae1bbd4c94e (diff) | |
| download | perl-b4cea2271f29371e2e2e0dc880d921b95d676b12.tar.gz | |
use &dl_error rather than &dl_load_file as the guard for calling
boot_DynaLoader() (meant to fix dl_error() redefined warnings in
statically built perl)
p4raw-id: //depot/perl@5947
Diffstat (limited to 'ext/DynaLoader/DynaLoader_pm.PL')
| -rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index e0eb604c73..55b8eca727 100644 --- a/ext/DynaLoader/DynaLoader_pm.PL +++ b/ext/DynaLoader/DynaLoader_pm.PL @@ -114,9 +114,9 @@ push(@dl_library_path, split(/:/, $ENV{LD_LIBRARY_PATH})) } # No prizes for guessing why we don't say 'bootstrap DynaLoader;' here. +# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) && - !defined(&dl_load_file); - + !defined(&dl_error); if ($dl_debug) { print STDERR "DynaLoader.pm loaded (@INC, @dl_library_path)\n"; |