--- Net_SSLeay.pm-1.25/SSLeay.pm~	2003-10-17 13:16:21 +0000

+++ Net_SSLeay.pm-1.25/SSLeay.pm	2003-10-17 13:20:55 +0000

@@ -1588,7 +1588,7 @@ sub debug_read {

 sub ssl_read_all {

     my ($ssl,$how_much) = @_;

-    $how_much = 2000000000 unless $how_much;

+    $how_much = 200000000 unless $how_much;

     my ($got, $errs);

     my $reply = '';

@@ -1605,7 +1605,7 @@ sub ssl_read_all {

 sub tcp_read_all {

     my ($how_much) = @_;

-    $how_much = 2000000000 unless $how_much;

+    $how_much = 200000000 unless $how_much;

     my ($n, $got, $errs);

     my $reply = '';

@@ -1703,7 +1703,7 @@ sub ssl_read_until ($;$$) {

     # N.B. 0.9.6a has security problems, so the support for

     #      anything earlier than 0.9.6e will be dropped soon.

     if (&Net::SSLeay::OPENSSL_VERSION_NUMBER >= 0x0090601f) {

-	$max_length = 2000000000 unless (defined $max_length);

+	$max_length = 200000000 unless (defined $max_length);

 	my ($pending, $peek_length, $found, $done);

 	while (blength($reply) < $max_length and !$done) {

 	    #Block if necessary until we get some data