HP-UX dynaloading uses shl_t, not void ptr.

diff --git a/ext/DynaLoader/dl_hpux.xs b/ext/DynaLoader/dl_hpux.xs
index 9003b9a..70bedb8 100644 (file)
--- a/ext/DynaLoader/dl_hpux.xs
+++ b/ext/DynaLoader/dl_hpux.xs
@@ -108,7 +108,7 @@ 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);
+    RETVAL = (shl_unload((shl_t)libref) == 0 ? 1 : 0);
     if (!RETVAL)
        SaveError(aTHX_ "%s", Strerror(errno));
     DLDEBUG(2,PerlIO_printf(Perl_debug_log, " retval = %d\n", RETVAL));