From 5b2146746244a1c6a54414d9cc44b4c47276fb5e Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 20 May 2007 20:02:38 -0400 Subject: pp_sys.c: gethostbyaddr Message-ID: <465119DE.6040208@iki.fi> p4raw-id: //depot/perl@31248 --- pp_sys.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_sys.c') diff --git a/pp_sys.c b/pp_sys.c index 222b1f5b85..3c30388305 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -4655,7 +4655,7 @@ PP(pp_ghostent) const int addrtype = POPi; SV * const addrsv = POPs; STRLEN addrlen; - Netdb_host_t addr = (Netdb_host_t) SvPVbyte(addrsv, addrlen); + UV addr = PTR2UV(SvPVbyte(addrsv, addrlen)); hent = PerlSock_gethostbyaddr((const char*)addr, (Netdb_hlen_t) addrlen, addrtype); #else -- cgit v1.2.1