simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Unix.accept may raise an exception (typicall Unix.EINTR, even with sigpipe blocked ?)

Browse source 
This avoids the server to stop
This commit is contained in:
craff 2021-11-29 15:35:41 -10:00
parent a58372b9a7
commit 6ccd8314a3
1 changed files with 15 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/Tiny_httpd.ml
View file

@ -1088,17 +1088,21 @@ let run (self:t) : (unit,_) result =
while self.running do
(* limit concurrency *)
Sem_.acquire 1 self.sem_max_connections;
let client_sock, _ = Unix.accept sock in
self.new_thread
(fun () ->
try
handle_client_ self client_sock;
Sem_.release 1 self.sem_max_connections;
with e ->
(try Unix.close client_sock with _ -> ());
Sem_.release 1 self.sem_max_connections;
raise e
);
try
let client_sock, _ = Unix.accept sock in
self.new_thread
(fun () ->
try
handle_client_ self client_sock;
Sem_.release 1 self.sem_max_connections;
with e ->
(try Unix.close client_sock with _ -> ());
Sem_.release 1 self.sem_max_connections;
raise e
);
with e ->
Printf.eprintf "accept raised an exception: %s"
(Printexc.to_string e)
done;
Ok ()
with e -> Error e