This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix tabbing and trailing whitespace from commit f1d35e3443
authorSteve Hay <steve.m.hay@googlemail.com>
Mon, 15 Aug 2011 20:30:41 +0000 (21:30 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Mon, 15 Aug 2011 20:30:41 +0000 (21:30 +0100)
and bump IO::Socket version.

dist/IO/lib/IO/Socket.pm

index 06e4e6c..ce493b5 100644 (file)
@@ -23,7 +23,7 @@ require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian');
 
 @ISA = qw(IO::Handle);
 
-$VERSION = "1.32";
+$VERSION = "1.33";
 
 @EXPORT_OK = qw(sockatmark);
 
@@ -118,21 +118,21 @@ sub connect {
            my $sel = new IO::Select $sock;
 
            undef $!;
-            my($r,$w,$e) = IO::Select::select(undef,$sel,$sel,$timeout);
-            if(@$e[0]) {
-                # Windows return from select after the timeout in case of
-                # WSAECONNREFUSED(10061) if exception set is not used.
-                # This behavior is different from Linux.
-                # Using the exception
-                # set we now emulate the behavior in Linux 
-                #    - Karthik Rajagopalan
-                $err = $sock->getsockopt(SOL_SOCKET,SO_ERROR);
-                $@ = "connect: $err";
-            }
-            elsif(!@$w[0]) {
-                $err = $! || (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1);
-                $@ = "connect: timeout";
-            }
+           my($r,$w,$e) = IO::Select::select(undef,$sel,$sel,$timeout);
+           if(@$e[0]) {
+               # Windows return from select after the timeout in case of
+               # WSAECONNREFUSED(10061) if exception set is not used.
+               # This behavior is different from Linux.
+               # Using the exception
+               # set we now emulate the behavior in Linux
+               #    - Karthik Rajagopalan
+               $err = $sock->getsockopt(SOL_SOCKET,SO_ERROR);
+               $@ = "connect: $err";
+           }
+           elsif(!@$w[0]) {
+               $err = $! || (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1);
+               $@ = "connect: timeout";
+           }
            elsif (!connect($sock,$addr) &&
                 not ($!{EISCONN} || ($! == 10022 && $^O eq 'MSWin32'))
             ) {