Streamline #5218 even more.

p4raw-id: //depot/cfgperl@5221

diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index 53c2ff6..2981516 100644 (file)
--- a/ext/IO/lib/IO/Socket.pm
+++ b/ext/IO/lib/IO/Socket.pm
@@ -115,18 +115,13 @@ sub connect {
                $err = $! || (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1);
                $@ = "connect: timeout";
            }
-           elsif(!connect($sock,$addr)) {
-               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)
-                   # for such an attempt.
-                   $err = 0;
-               } else {
-                   # But in other cases, there is no redemption.
-                   $err = $!;
-                   $@ = "connect: $!";
-               }
+           elsif(!connect($sock,$addr) && not $!{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)
+               # for such an attempt.
+               $err = $!;
+               $@ = "connect: $!";
            }
        }
        else {