From f9c1db8d349c8100068c1d6cf6918578d07e8c92 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 23 Feb 2000 16:00:29 +0000
Subject: Streamline #5218 even more.

p4raw-id: //depot/cfgperl@5221
---
 ext/IO/lib/IO/Socket.pm | 19 +++++++------------
 1 file changed, 7 insertions(+), 12 deletions(-)

(limited to 'ext')

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 {
-- 
cgit v1.2.1