Non-blocking socket win32 not work with IO::Socket::SSL

[Viperii]

I use this code to make 'REAL' timeout connection on Windows, it works fine with IO::Socket::INET, but got "400 Bad Request" response with IO::Socket::SSL.

#! perl -w

use strict;
use IO::Socket;
use IO::Socket::SSL;
use IO::Select;

my $timeout = 3;

my $socket = IO::Socket::SSL->new( Proto    => "tcp",
                   Type     => SOCK_STREAM);

ioctl($socket, 0x8004667e, pack("I", 1)); # Good HTTPS server response
+ with comment this, but timeout not work.

my $inetaddr = inet_aton("some_ssl_host");
my $peeraddr = sockaddr_in(443, $inetaddr);

$socket->connect($peeraddr);
$socket->autoflush;

my $select = new IO::Select($socket);

if($select->can_write($timeout))
{
    my $req = "GET /index.php HTTP/1.0\n\n";
    print $socket $req;

    print <$socket>; # Got "400 Bad Request" from HTTPS server.
}
else
{
    print "Connect timeout.\n";
}

close $socket;
exit;

So, how to make a workable timeout connection with IO::Socket::SSL on win32? Thanks all!

[Anonymous Monk]

Try IO-Socket-SSL-1.13_5

[Viperii]

With Perl 5.10 and IO-Socket-SSL 1.13,

C:\Documents and Settings\Administrator>perl -MIO::Socket::SSL -e "pri
+nt $IO::Socket::SSL::VERSION"
1.13
C:\Documents and Settings\Administrator>perl -v

This is perl, v5.10.0 built for MSWin32-x86-multi-thread

I can use blocking(0) directly:

#ioctl($socket, 0x8004667e, pack("I", 1));
$socket->blocking(0);

but "print <$socket>" output garbled characters, and HTTPS server got no request.