diff options
Diffstat (limited to 'ext/Socket/Socket.xs')
| -rw-r--r-- | ext/Socket/Socket.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs index c09c313d99..6abc647c2f 100644 --- a/ext/Socket/Socket.xs +++ b/ext/Socket/Socket.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" @@ -68,6 +69,7 @@ static int my_inet_aton(register const char *cp, struct in_addr *addr) { + dTHX; register U32 val; register int base; register char c; |