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_aix.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_aix.xs')
| -rw-r--r-- | ext/DynaLoader/dl_aix.xs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs index 68831ed8b0..bdf33b2410 100644 --- a/ext/DynaLoader/dl_aix.xs +++ b/ext/DynaLoader/dl_aix.xs @@ -524,10 +524,13 @@ BOOT: void * -dl_load_file(filename) - char * filename +dl_load_file(filename, flags=0) + char * filename + int flags CODE: - DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s):\n", filename)); + 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, 1) ; DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), " libref=%x\n", RETVAL)); ST(0) = sv_newmortal() ; |