diff options
| author | Neil Watkiss <neil.watkiss@sophos.com> | 2004-01-11 23:49:44 -0800 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2004-01-19 21:36:48 +0000 |
| commit | 4b1aa53e75357addb0d99a877dc385e70b2f795b (patch) | |
| tree | 7ce64aebd9ac33e316ce2348a9782726a01cba64 /ext | |
| parent | d2556f21d71ad9b4d9444ec45f73027fe044fcfc (diff) | |
| download | perl-4b1aa53e75357addb0d99a877dc385e70b2f795b.tar.gz | |
dl_unload_file for HP-UX
Message-ID: <20040112154944.GA15412@ActiveState.com>
p4raw-id: //depot/perl@22179
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/dl_hpux.xs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/ext/DynaLoader/dl_hpux.xs b/ext/DynaLoader/dl_hpux.xs index a7119ba368..5e7c7445af 100644 --- a/ext/DynaLoader/dl_hpux.xs +++ b/ext/DynaLoader/dl_hpux.xs @@ -102,6 +102,19 @@ end: sv_setiv( ST(0), PTR2IV(obj) ); +int +dl_unload_file(libref) + void * libref + CODE: + DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_unload_file(%lx):\n", PTR2ul(libref))); + RETVAL = (shl_unload(libref) == 0 ? 1 : 0); + if (!RETVAL) + SaveError(aTHX_ "%s", Strerror(errno)); + DLDEBUG(2,PerlIO_printf(Perl_debug_log, " retval = %d\n", RETVAL)); + OUTPUT: + RETVAL + + void * dl_find_symbol(libhandle, symbolname) void * libhandle |