From 2392504606465e088e5dc097fdf20f848f2b94fd Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 28 Jul 1999 21:15:04 +0000 Subject: [PATCH] Tiny patch to go over #3820 (via private mail from Lincoln). p4raw-id: //depot/cfgperl@3824 --- ext/IO/lib/IO/Socket/INET.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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); -- 2.7.4