From 7a4148d0ebd88270d810a59671da90698b83177d Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Wed, 18 Sep 2013 14:11:21 +0100 Subject: [PATCH] Really fix precedence problem in IO::Socket::connect() from 80d2c56d79 MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Thanks to Dagfinn Ilmari Mannsåker for paying more attention than me. --- dist/IO/lib/IO/Socket.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dist/IO/lib/IO/Socket.pm b/dist/IO/lib/IO/Socket.pm index d41f80b..625c71a 100644 --- a/dist/IO/lib/IO/Socket.pm +++ b/dist/IO/lib/IO/Socket.pm @@ -136,7 +136,7 @@ sub connect { } elsif (!connect($sock,$addr) && not ($!{EISCONN} || ($^O eq 'MSWin32' && - ($! == ($] < 5.019004) ? 10022 : Errno::EINVAL))) + ($! == (($] < 5.019004) ? 10022 : Errno::EINVAL)))) ) { # Some systems refuse to re-connect() to # an already open socket and set errno to EISCONN. -- 2.7.4