From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 23 Feb 2000 04:24:54 +0000 (+0000)
Subject: Streamline #5218.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5345e62f7ed2024b0a7194c9964e510614ece5e7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)