Don't core dump if my_inet_aton() get a NULL

diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index 7e3e3b3..e3b282b 100644 (file)
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -51,7 +51,7 @@ my_inet_aton(cp, addr)
 register const char *cp;
 struct in_addr *addr;
 {
-       register unsigned long val;
+       register U32 val;
        register int base;
        register char c;
        int nparts;
@@ -59,6 +59,8 @@ struct in_addr *addr;
        unsigned int parts[4];
        register unsigned int *pp = parts;
 
+       if (!cp)
+               return 0;
        for (;;) {
                /*
                 * Collect number up to ``.''.