diff options
Diffstat (limited to 'ext/DynaLoader/dl_beos.xs')
| -rw-r--r-- | ext/DynaLoader/dl_beos.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/DynaLoader/dl_beos.xs b/ext/DynaLoader/dl_beos.xs index 1bd16a69a1..c26824e34e 100644 --- a/ext/DynaLoader/dl_beos.xs +++ b/ext/DynaLoader/dl_beos.xs @@ -54,7 +54,7 @@ dl_load_file(filename, flags=0) PerlIO_printf(PerlIO_stderr(), "load_add_on(%s) : %d (%s)\n", path, bogo, strerror(bogo)); } else { RETVAL = (void *) bogo; - sv_setiv( ST(0), (IV)RETVAL); + sv_setiv( ST(0), PTR2IV(RETVAL) ); } free(path); } @@ -83,7 +83,7 @@ dl_find_symbol(libhandle, symbolname) SaveError(aTHX_ "%s", strerror(retcode)) ; PerlIO_printf(PerlIO_stderr(), "retcode = %p (%s)\n", retcode, strerror(retcode)); } else - sv_setiv( ST(0), (IV)RETVAL); + sv_setiv( ST(0), PTR2IV(RETVAL)); void |