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 (file)
--- 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);