1 # NOTE: Derived from blib/lib/Net/SSLeay.pm.
2 # Changes made here will be lost when autosplit is run again.
6 #line 1871 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/ssl_read_all.al)"
8 my ($ssl,$how_much) = @_;
9 $how_much = 2000000000 unless $how_much;
13 while ($how_much > 0) {
14 $got = Net::SSLeay::read($ssl,
15 ($how_much > 32768) ? 32768 : $how_much
17 last if $errs = print_errs('SSL_read');
18 $how_much -= blength($got);
19 debug_read(\$reply, \$got) if $trace>1;
20 last if $got eq ''; # EOF
24 return wantarray ? ($reply, $errs) : $reply;
27 # end of Net::SSLeay::ssl_read_all