diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-01-03 15:44:54 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-01-13 11:07:05 +0100 |
commit | c3daf58b898cd97ffe8b3006705e8494badb5b42 (patch) | |
tree | 4733eb9b7ab7ae1cb5dcc0ba6da1a51b2341d8e2 /module/web | |
parent | 38f14ce65d8d86a9a6acabc4e84df59f5eb13b04 (diff) | |
download | guile-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.scm | 8 |
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)))) |