diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-05 18:12:41 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-05 18:12:41 +0000 |
| commit | 595ae48196d4b0901d4a1aee37333fa960a6031f (patch) | |
| tree | c62fea37a03cc0b202d406f748ebe4f828171526 /pp_sys.c | |
| parent | 41010ee291c2b5acc799d2426bfb74f41a33ba21 (diff) | |
| download | perl-595ae48196d4b0901d4a1aee37333fa960a6031f.tar.gz | |
Some tests for Camel 3rd edition features.
Make gethostbyaddr() test in above work.
p4raw-id: //depot/perlio@9042
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4515,7 +4515,7 @@ PP(pp_ghostent) EXTEND(SP, 10); if (which == OP_GHBYNAME) #ifdef HAS_GETHOSTBYNAME - hent = PerlSock_gethostbyname(POPpx); + hent = PerlSock_gethostbyname(POPpbytex); #else DIE(aTHX_ PL_no_sock_func, "gethostbyname"); #endif @@ -4524,7 +4524,7 @@ PP(pp_ghostent) int addrtype = POPi; SV *addrsv = POPs; STRLEN addrlen; - Netdb_host_t addr = (Netdb_host_t) SvPV(addrsv, addrlen); + Netdb_host_t addr = (Netdb_host_t) SvPVbyte(addrsv, addrlen); hent = PerlSock_gethostbyaddr(addr, (Netdb_hlen_t) addrlen, addrtype); #else |