Streamline #5218 even more.

p4raw-id: //depot/cfgperl@5221

1 files changed, 7 insertions, 12 deletions

diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index 53c2ff66a7..2981516efc 100644
--- 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 {