summaryrefslogtreecommitdiff
path: root/module/web/server/http.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/web/server/http.scm')
-rw-r--r--module/web/server/http.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/web/server/http.scm b/module/web/server/http.scm
index a9a90499e..af2b65b23 100644
--- a/module/web/server/http.scm
+++ b/module/web/server/http.scm
@@ -90,7 +90,7 @@
;; A new client. Add to set, poll, and loop.
;;
;; FIXME: preserve meta-info.
- (let ((client (accept (poll-set-port poll-set idx))))
+ (let ((client (accept (poll-set-port poll-set idx) SOCK_CLOEXEC)))
;; Buffer input and output on this port.
(setvbuf (car client) _IOFBF)
;; From "HOP, A Fast Server for the Diffuse Web", Serrano.