summaryrefslogtreecommitdiff
path: root/module/web
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-01-03 15:44:54 +0100
committerLudovic Courtès <ludo@gnu.org>2020-01-13 11:07:05 +0100
commitc3daf58b898cd97ffe8b3006705e8494badb5b42 (patch)
tree4733eb9b7ab7ae1cb5dcc0ba6da1a51b2341d8e2 /module/web
parent38f14ce65d8d86a9a6acabc4e84df59f5eb13b04 (diff)
downloadguile-c3daf58b898cd97ffe8b3006705e8494badb5b42.tar.gz
web: Update comment regarding the 'tls-wrap' port wrapper.
* module/web/client.scm (tls-wrap): Update comment.
Diffstat (limited to 'module/web')
-rw-r--r--module/web/client.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/module/web/client.scm b/module/web/client.scm
index 3d144df41..67d926f8a 100644
--- a/module/web/client.scm
+++ b/module/web/client.scm
@@ -264,7 +264,15 @@ host name without trailing dot."
(close-port port))
(unless (port-closed? record)
(close-port record)))
+
(setvbuf record 'block)
+
+ ;; Return a port that wraps RECORD to ensure that closing it also
+ ;; closes PORT, the actual socket port, and its file descriptor.
+ ;; XXX: This wrapper would be unnecessary if GnuTLS could
+ ;; automatically close SESSION's file descriptor when RECORD is
+ ;; closed, but that doesn't seem to be possible currently (as of
+ ;; 3.6.9).
(make-custom-binary-input/output-port "gnutls wrapped port" read! write!
get-position set-position!
close))))