From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 21 May 2007 00:02:38 +0000 (-0400)
Subject: pp_sys.c: gethostbyaddr
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b2146746244a1c6a54414d9cc44b4c47276fb5e;p=p5sagit%2Fp5-mst-13.2.git

pp_sys.c: gethostbyaddr
Message-ID: <465119DE.6040208@iki.fi>

p4raw-id: //depot/perl@31248
---

diff --git a/pp_sys.c b/pp_sys.c
index 222b1f5..3c30388 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