Change 22179 by [EMAIL PROTECTED] on 2004/01/19 21:36:48
Subject: [PATCH] dl_unload_file for HP-UX
Date: Mon, 12 Jan 2004 07:49:44 -0800
From: Neil Watkiss <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/DynaLoader/dl_hpux.xs#15 edit
Differences ...
==== //depot/perl/ext/DynaLoader/dl_hpux.xs#15 (text) ====
Index: perl/ext/DynaLoader/dl_hpux.xs
--- perl/ext/DynaLoader/dl_hpux.xs#14~12634~ Wed Oct 24 18:53:03 2001
+++ perl/ext/DynaLoader/dl_hpux.xs Mon Jan 19 13:36:48 2004
@@ -102,6 +102,19 @@
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
End of Patch.
