From 6fa75029fa6e17357cb853017aa597205638c867 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 8 Feb 2012 20:11:57 +0100 Subject: web server: use CLOEXEC * module/web/server/http.scm (http-read): Pass SOCK_CLOEXEC to `accept'. --- module/web/server/http.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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. -- cgit v1.2.1