# HG changeset patch # User Sergey Kandaurov # Date 1490713122 -10800 # Node ID d12c45f14102bad5bd46573d176e847abeaf7bab # Parent d37983612b04459382aa0fbef798e3f624700824 Tests: handled EOF 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 @@ -232,9 +232,12 @@ sub upgrade_getline { $s->blocking(0); while (IO::Select->new($s)->can_read(3)) { my $n = $s->sysread($buf, 16384); - unless ($n) { + if (!defined $n) { next if $s->errstr() == IO::Socket::SSL->SSL_WANT_READ; last; + + } elsif (!$n) { + last; } $h->{b} .= $buf;