READ:
{
die "read timeout" unless $self->can_read;
my $n = $self->sysread($_, 1024, length);
unless (defined $n) {
redo READ if $!{EINTR} || $!{EAGAIN};
The server makes a connection reset if you try to access
https://www.butler.edu/boa/default.aspx. On unix this will set $! to ECONNRESET,
and for unknown reason this will not set $! on Windows with Strawberry
perl5.18.2 , but only returns "SSL read error" from the SSL layer.
Thus $! will stay at EINTR from the previous error and it will loop forever.
IO::Socket::SSL 1.992 (just released) works around this problem by resetting $!
before doing I/O. This way $! will no longer stay at $!, but will be undef and
thus the loop will exit, albeit with no specific error. The real fix would be of
course to set $! to ECONNRESET in the underlying IO::Socket layer if the TCP
connection was reset.
Steffen
