[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-users] [PATCH 2/4] openssl: don't raise 'ssl-peek-char exceptio
From: |
Florian Zumbiehl |
Subject: |
[Chicken-users] [PATCH 2/4] openssl: don't raise 'ssl-peek-char exception in write |
Date: |
Tue, 2 Apr 2013 06:56:21 +0200 |
User-agent: |
Mutt/1.5.20 (2009-06-14) |
Signal 'ssl-write rather than 'ssl-peek-char when SSL write on output port
fails.
---
openssl.scm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/openssl.scm b/openssl.scm
index 9433bcd..6aafcc9 100644
--- a/openssl.scm
+++ b/openssl.scm
@@ -436,7 +436,7 @@ EOF
(when (> (##sys#size buffer) 0) ; Undefined behaviour for 0
bytes!
(let loop ((offset 0) (size (##sys#size buffer)))
(let ((ret (ssl-call/timeout
- 'ssl-peek-char
+ 'ssl-write
(lambda () (ssl-write ssl buffer offset size))
fd (tcp-write-timeout) "SSL write timed out")))
(when (fx< ret size) ; Partial write
--
1.7.2.5