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

release semaphore in case of exception in accept

Browse source
This commit is contained in:
craff 2021-12-11 23:21:47 -10:00
parent b468854626
commit a130c4ea35
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Tiny_httpd.ml
View file

@ -1104,6 +1104,7 @@ let run (self:t) : (unit,_) result =
raise e raise e
); );
with e -> with e ->
Sem_.release 1 self.sem_max_connections;
_debug (fun k -> k _debug (fun k -> k
"Unix.accept or Thread.create raised an exception: %s" "Unix.accept or Thread.create raised an exception: %s"
(Printexc.to_string e)) (Printexc.to_string e))