diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2007-05-20 20:02:38 -0400 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2007-05-21 06:26:31 +0000 |
| commit | 5b2146746244a1c6a54414d9cc44b4c47276fb5e (patch) | |
| tree | 1aa864eda5ceda3e6954c6cae2975dadbfd68594 /pp_sys.c | |
| parent | 6f21b45f63d7a8aa1cbaa86a63e83a3078c61492 (diff) | |
| download | perl-5b2146746244a1c6a54414d9cc44b4c47276fb5e.tar.gz | |
pp_sys.c: gethostbyaddr
Message-ID: <465119DE.6040208@iki.fi>
p4raw-id: //depot/perl@31248
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |