diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-01-24 09:37:18 +0000 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-25 15:58:00 +1200 |
| commit | ff7f3c60e77f15ff4f5a3176285a6a22c685a51b (patch) | |
| tree | 98aac667b0d3aa32b6eeb497580eeba75d5e4b02 /ext/DynaLoader/dl_next.xs | |
| parent | 477ea2b1e391466957db04c3750b33b84f92cd1f (diff) | |
| download | perl-ff7f3c60e77f15ff4f5a3176285a6a22c685a51b.tar.gz | |
DynaLoader enhancement: support RTLD_GLOBAL
private-msgid: <199701240937.JAA11443@pluto.tiuk.ti.com>
Diffstat (limited to 'ext/DynaLoader/dl_next.xs')
| -rw-r--r-- | ext/DynaLoader/dl_next.xs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ext/DynaLoader/dl_next.xs b/ext/DynaLoader/dl_next.xs index 3e908ff02a..17b5be5ea2 100644 --- a/ext/DynaLoader/dl_next.xs +++ b/ext/DynaLoader/dl_next.xs @@ -241,11 +241,15 @@ BOOT: void * -dl_load_file(filename) +dl_load_file(filename, flags=0) char * filename - CODE: + int flags + PREINIT: int mode = 1; - DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s):\n", filename)); + CODE: + DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s,%x):\n", filename,flags)); + if (flags & 0x01) + warn("Can't make loaded symbols global on this platform while loading %s",filename); RETVAL = dlopen(filename, mode) ; DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), " libref=%x\n", RETVAL)); ST(0) = sv_newmortal() ; |