io.sockets.secure.openssl: do-ssl-connect needs to call wait-for-fd
parent
58388f7c26
commit
4d8f3e8a78
|
@ -268,7 +268,7 @@ M: ssl-handle drain
|
||||||
|
|
||||||
: do-ssl-connect ( ssl-handle -- )
|
: do-ssl-connect ( ssl-handle -- )
|
||||||
dup dup handle>> SSL_connect check-connect-response dup
|
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 -- )
|
: resume-session ( ssl-handle ssl-session -- )
|
||||||
[ [ handle>> ] dip SSL_set_session ssl-error ]
|
[ [ handle>> ] dip SSL_set_session ssl-error ]
|
||||||
|
|
Loading…
Reference in New Issue