diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
commit | 3280af22f58e7b37514ed104858e2c2fc55ceeeb (patch) | |
tree | 8fd8328859f022068272656f072a7ec4eecac0a6 /ext/Socket/Socket.xs | |
parent | ef6361f9c2260919aefcc17b1b80f8857c67a84a (diff) | |
download | perl-3280af22f58e7b37514ed104858e2c2fc55ceeeb.tar.gz |
PL_ prefix to all perlvars, part1
Builds and passes all tests at one limit i.e. -DPERL_GLOBAL_STRUCT
p4raw-id: //depot/ansiperl@1532
Diffstat (limited to 'ext/Socket/Socket.xs')
-rw-r--r-- | ext/Socket/Socket.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs index 9c80c3d358..de0217bdb4 100644 --- a/ext/Socket/Socket.xs +++ b/ext/Socket/Socket.xs @@ -85,9 +85,9 @@ my_inet_aton(register const char *cp, struct in_addr *addr) cp++; continue; } - if (base == 16 && (s=strchr(hexdigit,c))) { + if (base == 16 && (s=strchr(PL_hexdigit,c))) { val = (val << 4) + - ((s - hexdigit) & 15); + ((s - PL_hexdigit) & 15); cp++; continue; } |