From 95928a7cd46e4c45ab26d6779768345595181cf9 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 19 Jan 2012 13:08:11 +0100
Subject: [PATCH] http_bind webserver TLS fail on Chrome (thanks to Adam
 Langley)(EJAB-1530)

---
 src/tls/tls_drv.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/tls/tls_drv.c b/src/tls/tls_drv.c
index c4210055a..9311d4f6d 100644
--- a/src/tls/tls_drv.c
+++ b/src/tls/tls_drv.c
@@ -430,7 +430,8 @@ static ErlDrvSSizeT tls_drv_control(ErlDrvData handle,
 	    if (res <= 0)
 	       die_unless(SSL_get_error(d->ssl, res) == SSL_ERROR_WANT_READ,
 			  "SSL_do_handshake failed");
-	 } else {
+	 }
+	 if (SSL_is_init_finished(d->ssl)) {
 	    size = BUF_SIZE + 1;
 	    rlen = 1;
 	    b = driver_alloc_binary(size);