From 4d8f3e8a7850460499822d9f3b3834090b55b9a9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Sat, 29 Mar 2014 20:11:53 +0100 Subject: [PATCH] io.sockets.secure.openssl: do-ssl-connect needs to call wait-for-fd --- basis/io/sockets/secure/openssl/openssl.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/io/sockets/secure/openssl/openssl.factor b/basis/io/sockets/secure/openssl/openssl.factor index 785e63baa6..b3d6c863be 100644 --- a/basis/io/sockets/secure/openssl/openssl.factor +++ b/basis/io/sockets/secure/openssl/openssl.factor @@ -268,7 +268,7 @@ M: ssl-handle drain : do-ssl-connect ( ssl-handle -- ) dup dup handle>> SSL_connect check-connect-response dup - [ dupd 2drop do-ssl-connect ] [ 2drop ] if ; + [ dupd wait-for-fd do-ssl-connect ] [ 2drop ] if ; : resume-session ( ssl-handle ssl-session -- ) [ [ handle>> ] dip SSL_set_session ssl-error ]