diff options
author | Andy Wingo <wingo@pobox.com> | 2012-02-08 20:11:57 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-02-14 22:47:15 +0100 |
commit | 6fa75029fa6e17357cb853017aa597205638c867 (patch) | |
tree | d4b1ec9fd11fd3dc845e6932efe599955327f8db /module/web/server/http.scm | |
parent | d7bbda6fd7b79917bd963f6c156c8539414a35f8 (diff) | |
download | guile-wip-threads-and-fork.tar.gz |
web server: use CLOEXECwip-threads-and-fork
* module/web/server/http.scm (http-read): Pass SOCK_CLOEXEC to
`accept'.
Diffstat (limited to 'module/web/server/http.scm')
-rw-r--r-- | module/web/server/http.scm | 2 |
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. |