From: Jarkko Hietaniemi 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);