diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-28 21:15:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-28 21:15:04 +0000 |
| commit | 2392504606465e088e5dc097fdf20f848f2b94fd (patch) | |
| tree | c2f951224c518930d9ff36e8814b86f666dac1a4 | |
| parent | 9ccd05c0c9fc3355a245e99f650407c76c593182 (diff) | |
| download | perl-2392504606465e088e5dc097fdf20f848f2b94fd.tar.gz | |
Tiny patch to go over #3820 (via private mail from Lincoln).
p4raw-id: //depot/cfgperl@3824
| -rw-r--r-- | ext/IO/lib/IO/Socket/INET.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm index d7ca4c155d..c8e3a7694c 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); |