Mercurial > hg > nginx-tests
diff ssl_proxy_upgrade.t @ 588:53b7c3c33a79
Tests: retry on SSL_WANT_WRITE in ssl_proxy_upgrade.t.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Mon, 25 May 2015 18:02:01 +0300 |
parents | 5bb19f7448b5 |
children | a9569f57da98 |
line wrap: on
line diff
--- a/ssl_proxy_upgrade.t +++ b/ssl_proxy_upgrade.t @@ -254,7 +254,10 @@ sub upgrade_write { $s->blocking(0); while (IO::Select->new($s)->can_write(1.5)) { my $n = $s->syswrite($message); - last unless $n; + unless ($n) { + next if $s->errstr() == IO::Socket::SSL->SSL_WANT_WRITE; + last; + } $message = substr($message, $n); last unless length $message; }