Index: IO-Socket-SSL-1.94/lib/IO/Socket/SSL.pm --- IO-Socket-SSL-1.94/lib/IO/Socket/SSL.pm.orig 2012-11-25 16:43:07.000000000 +0100 +++ IO-Socket-SSL-1.94/lib/IO/Socket/SSL.pm 2012-11-27 21:39:17.000000000 +0100 @@ -722,10 +722,7 @@ sub read { my $self = shift; - return $self->generic_read( - $self->blocking ? \&Net::SSLeay::ssl_read_all : \&Net::SSLeay::read, - @_ - ); + return $self->generic_read(\&Net::SSLeay::read, @_); } # contrary to the behavior of read sysread can read partial data