From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 25 Nov 2001 16:20:45 +0000 (-0600)
Subject: Socket::my_inet_aton() tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dfb6a7ef48035acda2858c343a48352b20f2b43f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 (;;) {
 		/*