# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1432566121 -10800
# Node ID 53b7c3c33a79e4c8babbbcea3558c559b3d797c1
# Parent  c0b4ae82fd9d761691a536e4efca30cc9541781e
Tests: retry on SSL_WANT_WRITE 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
@@ -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;
 	}