diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-11-27 10:32:13 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-11-27 11:21:28 -0500 |
| commit | cea80896350bf9218a73437b32b19656cee32abd (patch) | |
| tree | 90848b11dbde7122501861c344474f00f8581faf /ext/DynaLoader | |
| parent | 7fcb36d580fb98f5ddfe401b0f69fcdbf2f94d4c (diff) | |
| download | perl-cea80896350bf9218a73437b32b19656cee32abd.tar.gz | |
HP-UX dynaloading uses shl_t, not void ptr.
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/dl_hpux.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/DynaLoader/dl_hpux.xs b/ext/DynaLoader/dl_hpux.xs index 9003b9adf5..70bedb80cf 100644 --- 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)); |