io.sockets.secure.openssl: fix do-ssl-write for failed writes.

SSL_write will return <= 0 for errors, but some errors are not
retryable so only consume the buffer if the return value was > 0.

diff --git a/basis/io/sockets/secure/openssl/openssl.factor b/basis/io/sockets/secure/openssl/openssl.factor
index 9d56fab25d1a4b3505a72ca270b783824e6bea43..fd0c4207b7411e83ceaa383ef7fe46dc897d8f53 100644 (file)
--- a/basis/io/sockets/secure/openssl/openssl.factor
+++ b/basis/io/sockets/secure/openssl/openssl.factor
@@ -325,7 +325,9 @@ M: ssl-handle refill
 ! Output ports
 : do-ssl-write ( buffer ssl-handle -- event/f )
     2dup handle>> swap [ buffer@ ] [ buffer-length ] bi SSL_write
-    [ check-ssl-error ] keep swap [ 2nip ] [ swap buffer-consume f ] if* ;
+    [ check-ssl-error ] keep swap [ 2nip ] [
+        dup 0 > [ swap buffer-consume ] [ 2drop ] if f
+    ] if* ;
 
 M: ssl-handle drain
     dup maybe-handshake [ buffer>> ] dip do-ssl-write ;