diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-23 04:24:54 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-23 04:24:54 +0000 |
| commit | 5345e62f7ed2024b0a7194c9964e510614ece5e7 (patch) | |
| tree | afcd3d558c891c4c6d48ae0ac36f1e9458dcf1c2 /ext/IO | |
| parent | db33da1c366cee030aa4a06b47a9f66846361e94 (diff) | |
| download | perl-5345e62f7ed2024b0a7194c9964e510614ece5e7.tar.gz | |
Streamline #5218.
p4raw-id: //depot/cfgperl@5219
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/lib/IO/Socket.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm index 4197eaa3c1..53c2ff66a7 100644 --- a/ext/IO/lib/IO/Socket.pm +++ b/ext/IO/lib/IO/Socket.pm @@ -116,7 +116,7 @@ sub connect { $@ = "connect: timeout"; } elsif(!connect($sock,$addr)) { - if (exists &Errno::EISCONN && ($! == &Errno::EISCONN)) { + if ($!{EISCONN}) { # Some systems (e.g. Digital UNIX/Tru64) fail to # re-connect() to an already open socket and set # errno to EISCONN (Socket is already connected) |