projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
75bd50b
)
Socket::my_inet_aton() tweak
author
Craig A. Berry
<craigberry@mac.com>
Sun, 25 Nov 2001 16:20:45 +0000
(10:20 -0600)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sun, 25 Nov 2001 21:42:02 +0000
(21:42 +0000)
Message-Id: <5.1.0.14.2.
20011125160848
.
01c59690
@exchi01>
p4raw-id: //depot/perl@13275
ext/Socket/Socket.xs
patch
|
blob
|
history
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 (;;) {
/*