Mercurial > hg > nginx-tests

comparison ssl_proxy_upgrade.t @ 588:53b7c3c33a79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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) {