changeset 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 c0b4ae82fd9d
children a9569f57da98
files ssl_proxy_upgrade.t
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
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;
 	}