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