# HG changeset patch # User Sergey Kandaurov # Date 1433884245 14400 # Node ID 1177e4dd249ab320f91674ecf5913ef097bf0e54 # Parent 3a9a7b4f27f0edfe6447a91da5fae4da83082c70 Tests: read in full-size SSL records in ssl_proxy_upgrade.t. diff --git a/ssl_proxy_upgrade.t b/ssl_proxy_upgrade.t --- a/ssl_proxy_upgrade.t +++ b/ssl_proxy_upgrade.t @@ -231,7 +231,7 @@ sub upgrade_getline { $s->blocking(0); while (IO::Select->new($s)->can_read(1.5)) { - my $n = $s->sysread($buf, 1024); + my $n = $s->sysread($buf, 16384); unless ($n) { next if $s->errstr() == IO::Socket::SSL->SSL_WANT_READ; last;