diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-11-25 10:20:45 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-25 21:42:02 +0000 |
| commit | dfb6a7ef48035acda2858c343a48352b20f2b43f (patch) | |
| tree | 779bd46b3de2cfd94b001735a0aadcfbd0e546d5 | |
| parent | 75bd50b321599253bc5daafb07b3a7ba1bdf8dee (diff) | |
| download | perl-dfb6a7ef48035acda2858c343a48352b20f2b43f.tar.gz | |
Socket::my_inet_aton() tweak
Message-Id: <5.1.0.14.2.20011125160848.01c59690@exchi01>
p4raw-id: //depot/perl@13275
| -rw-r--r-- | ext/Socket/Socket.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs index 73cf320e3d..4191097587 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 (;;) { /* |