From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 28 Jul 1999 21:15:04 +0000 (+0000)
Subject: Tiny patch to go over #3820 (via private mail from Lincoln).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2392504606465e088e5dc097fdf20f848f2b94fd;p=p5sagit%2Fp5-mst-13.2.git

Tiny patch to go over #3820 (via private mail from Lincoln).

p4raw-id: //depot/cfgperl@3824
---

diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm
index d7ca4c1..c8e3a76 100644
--- a/ext/IO/lib/IO/Socket/INET.pm
+++ b/ext/IO/lib/IO/Socket/INET.pm
@@ -147,11 +147,11 @@ sub configure {
 	    last;
 	}
 
+ 	# don't try to connect unless we're given a PeerAddr
+ 	last unless exists($arg->{PeerAddr});
+ 
         $raddr = shift @raddr;
 
-	# don't connect unless we're given a port or address
-	last unless defined($rport) || defined($raddr);
-
 	return _error($sock,'Cannot determine remote port')
 		unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW);