From 3280af22f58e7b37514ed104858e2c2fc55ceeeb Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 18 Jul 1998 13:53:03 +0000
Subject: PL_ prefix to all perlvars, part1    Builds and passes all tests at
 one limit i.e. -DPERL_GLOBAL_STRUCT

p4raw-id: //depot/ansiperl@1532
---
 ext/Socket/Socket.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ext/Socket/Socket.xs')

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;
 			}
-- 
cgit v1.2.1