From: Neil Watkiss <neil.watkiss@sophos.com>
Date: Mon, 12 Jan 2004 07:49:44 +0000 (-0800)
Subject: dl_unload_file for HP-UX
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4b1aa53e75357addb0d99a877dc385e70b2f795b;p=p5sagit%2Fp5-mst-13.2.git

dl_unload_file for HP-UX
Message-ID: <20040112154944.GA15412@ActiveState.com>

p4raw-id: //depot/perl@22179
---

diff --git a/ext/DynaLoader/dl_hpux.xs b/ext/DynaLoader/dl_hpux.xs
index a7119ba..5e7c744 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