Streamline #5218.

p4raw-id: //depot/cfgperl@5219

diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index 4197eaa..53c2ff6 100644 (file)
--- 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)