Mercurial > hg > nginx-tests
comparison 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 |
comparison
equal
deleted
inserted
replaced
587:c0b4ae82fd9d | 588:53b7c3c33a79 |
---|---|
252 local $SIG{PIPE} = 'IGNORE'; | 252 local $SIG{PIPE} = 'IGNORE'; |
253 | 253 |
254 $s->blocking(0); | 254 $s->blocking(0); |
255 while (IO::Select->new($s)->can_write(1.5)) { | 255 while (IO::Select->new($s)->can_write(1.5)) { |
256 my $n = $s->syswrite($message); | 256 my $n = $s->syswrite($message); |
257 last unless $n; | 257 unless ($n) { |
258 next if $s->errstr() == IO::Socket::SSL->SSL_WANT_WRITE; | |
259 last; | |
260 } | |
258 $message = substr($message, $n); | 261 $message = substr($message, $n); |
259 last unless length $message; | 262 last unless length $message; |
260 } | 263 } |
261 | 264 |
262 if (length $message) { | 265 if (length $message) { |