Socket::my_inet_aton() tweak

Message-Id: <5.1.0.14.2.20011125160848.01c59690@exchi01>

p4raw-id: //depot/perl@13275

diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index 73cf320..4191097 100644 (file)
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -87,7 +87,7 @@ my_inet_aton(register const char *cp, struct in_addr *addr)
        unsigned int parts[4];
        register unsigned int *pp = parts;
 
-       if (!cp)
+       if (!cp || !*cp)
                return 0;
        for (;;) {
                /*