diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-24 15:10:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-24 15:10:04 +0000 |
| commit | 3bb7c1b4370f531673b1f79f24f6e97e899b9b08 (patch) | |
| tree | 1bac0134d931c9b5e3717c1d66c3b0cec06c6cfb /pp_sys.c | |
| parent | afb903826904a8d9e7b3f9c7e5ab8695633ce552 (diff) | |
| download | perl-3bb7c1b4370f531673b1f79f24f6e97e899b9b08.tar.gz | |
IV/UV casting fixes from Nicholas Clark.
p4raw-id: //depot/perl@10198
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2070,7 +2070,7 @@ PP(pp_ioctl) { dSP; dTARGET; SV *argsv = POPs; - unsigned int func = U_I(POPn); + unsigned int func = POPu; int optype = PL_op->op_type; char *s; IV retval; @@ -4658,7 +4658,7 @@ PP(pp_gnetent) else if (which == OP_GNBYADDR) { #ifdef HAS_GETNETBYADDR int addrtype = POPi; - Netdb_net_t addr = (Netdb_net_t) U_L(POPn); + Netdb_net_t addr = (Netdb_net_t) (U32)POPu; nent = PerlSock_getnetbyaddr(addr, addrtype); #else DIE(aTHX_ PL_no_sock_func, "getnetbyaddr"); |