Репозитории ALT
S: | 1.92-alt1 |
5.1: | 1.35-alt2 |
4.1: | 1.33_01-alt1 |
4.0: | 1.25-alt3.1 |
3.0: | 1.25-alt3 |
Группа :: Разработка/Perl
Пакет: perl-Net-SSLeay
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: perl-Net-SSLeay-1.25-alt-out-of-memory.patch
Скачать
Скачать
--- 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