diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-24 22:02:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-24 22:02:23 +0000 |
| commit | cdc73a103e56840003cb817a381323974e4b9832 (patch) | |
| tree | 981c44d00a07e8db26f6300ebb3263f48b4785c3 /ext/DynaLoader/dl_dlopen.xs | |
| parent | 313e3311ff463cfb1de02a3e944a3a32a6497023 (diff) | |
| download | perl-cdc73a103e56840003cb817a381323974e4b9832.tar.gz | |
Integrate change #12626 from maintperl;
make DynaLoader threadsafe by moving all statics into
interpreter-local space
TODO: Netware, OS/2, WinCE
p4raw-link: @12626 on //depot/maint-5.6/perl: 512dcce54ea4db665708f91609bdd0a6126d1acd
p4raw-id: //depot/perl@12627
p4raw-integrated: from //depot/maint-5.6/perl@12625 'copy in'
ext/DynaLoader/dl_beos.xs ext/DynaLoader/dl_dld.xs
ext/DynaLoader/dl_dyld.xs ext/DynaLoader/dl_hpux.xs
ext/DynaLoader/dl_next.xs ext/DynaLoader/dl_vmesa.xs
ext/DynaLoader/dl_vms.xs (@5902..) ext/DynaLoader/dl_dllload.xs
(@8789..) 'merge in' ext/DynaLoader/dl_mpeix.xs
ext/DynaLoader/dlutils.c win32/dl_win32.xs (@5902..)
ext/DynaLoader/dl_dlopen.xs (@8631..) ext/DynaLoader/dl_aix.xs
(@9416..) ext/DynaLoader/dl_mac.xs (@12597..)
Diffstat (limited to 'ext/DynaLoader/dl_dlopen.xs')
| -rw-r--r-- | ext/DynaLoader/dl_dlopen.xs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs index 7d099bee02..66ee066adc 100644 --- a/ext/DynaLoader/dl_dlopen.xs +++ b/ext/DynaLoader/dl_dlopen.xs @@ -175,8 +175,11 @@ dl_load_file(filename, flags=0) } #endif #ifdef RTLD_NOW - if (dl_nonlazy) - mode = RTLD_NOW; + { + dMY_CXT; + if (dl_nonlazy) + mode = RTLD_NOW; + } #endif if (flags & 0x01) #ifdef RTLD_GLOBAL @@ -255,7 +258,8 @@ dl_install_xsub(perl_name, symref, filename="$Package") char * dl_error() CODE: - RETVAL = LastError ; + dMY_CXT; + RETVAL = dl_last_error ; OUTPUT: RETVAL |