Really fix precedence problem in IO::Socket::connect() from 80d2c56d79
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 18 Sep 2013 13:11:21 +0000 (14:11 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 18 Sep 2013 13:11:21 +0000 (14:11 +0100)
Thanks to Dagfinn Ilmari MannsÃ¥ker for paying more attention than me.

dist/IO/lib/IO/Socket.pm

index d41f80b..625c71a 100644 (file)
@@ -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.