diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 08:54:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 08:54:19 +0000 |
| commit | 6ad3d225cec2692b410002582f5558652eea32c8 (patch) | |
| tree | a75531c0d01d25dcc35d8b3eca5857b3fc4e34fd /pp.c | |
| parent | e7152ba2733b9227708ca768b222144415c13c66 (diff) | |
| download | perl-6ad3d225cec2692b410002582f5558652eea32c8.tar.gz | |
[asperl] Created new branch from win32@396, added AS patch#1
p4raw-link: @396 on //depot/win32/perl: e7152ba2733b9227708ca768b222144415c13c66
p4raw-id: //depot/asperl@441
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -3061,7 +3061,7 @@ PP(pp_unpack) s += SIZE16; #ifdef HAS_NTOHS if (datumtype == 'n') - aushort = ntohs(aushort); + aushort = PerlSock_ntohs(aushort); #endif #ifdef HAS_VTOHS if (datumtype == 'v') @@ -3079,7 +3079,7 @@ PP(pp_unpack) sv = NEWSV(39, 0); #ifdef HAS_NTOHS if (datumtype == 'n') - aushort = ntohs(aushort); + aushort = PerlSock_ntohs(aushort); #endif #ifdef HAS_VTOHS if (datumtype == 'v') @@ -3180,7 +3180,7 @@ PP(pp_unpack) s += SIZE32; #ifdef HAS_NTOHL if (datumtype == 'N') - aulong = ntohl(aulong); + aulong = PerlSock_ntohl(aulong); #endif #ifdef HAS_VTOHL if (datumtype == 'V') @@ -3200,7 +3200,7 @@ PP(pp_unpack) s += SIZE32; #ifdef HAS_NTOHL if (datumtype == 'N') - aulong = ntohl(aulong); + aulong = PerlSock_ntohl(aulong); #endif #ifdef HAS_VTOHL if (datumtype == 'V') @@ -3810,7 +3810,7 @@ PP(pp_pack) fromstr = NEXTFROM; ashort = (I16)SvIV(fromstr); #ifdef HAS_HTONS - ashort = htons(ashort); + ashort = PerlSock_htons(ashort); #endif CAT16(cat, &ashort); } @@ -3922,7 +3922,7 @@ PP(pp_pack) fromstr = NEXTFROM; aulong = SvUV(fromstr); #ifdef HAS_HTONL - aulong = htonl(aulong); + aulong = PerlSock_htonl(aulong); #endif CAT32(cat, &aulong); } |