mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

allow webserver to run when SIGPIPE not defined

Browse source 
* module/web/server/http.scm (http-open): only set SIGPIPE sigaction when
    SIGPIPE is defined.
This commit is contained in:
Michael Gran 2023-06-20 16:08:44 -07:00
parent 69e1f96a93
commit 5d4373248f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/web/server/http.scm
View file

@ -65,7 +65,8 @@
(port 8080)
(socket (make-default-socket family addr port)))
(listen socket 128)
(sigaction SIGPIPE SIG_IGN)
(when (defined? 'SIGPIPE)
(sigaction SIGPIPE SIG_IGN))
(let ((poll-set (make-empty-poll-set)))
(poll-set-add! poll-set socket *events*)
(make-http-server socket 0 poll-set)))