diff -ru libwww-perl-5.62/lib/LWP/Protocol/http.pm libwww-perl-5.63/lib/LWP/Protocol/http.pm
--- libwww-perl-5.62/lib/LWP/Protocol/http.pm	2001-11-16 21:10:28.000000000 -0500
+++ libwww-perl-5.63/lib/LWP/Protocol/http.pm	2001-12-14 14:33:52.000000000 -0500
@@ -371,6 +374,11 @@
     if (my $timeout = ${*$self}{io_socket_timeout}) {
 	die "read timeout" unless $self->can_read($timeout);
     }
+    else {
+	# since we have made the socket non-blocking we
+	# use select to wait for some data to arrive
+	$self->can_read(undef) || die "Assert";
+    }
     sysread($self, $_[0], $_[1], $_[2] || 0);
 }