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

in fact release was missing if exception was raised in accept

Browse source
This commit is contained in:
craff 2021-12-11 23:07:06 -10:00
parent b1584c2261
commit c44620d7a1
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Tiny_httpd.ml
View file

@ -1185,9 +1185,9 @@ let run (self:t) : (unit,_) result =
end;
while self.running do
(* limit concurrency *)
Sem_.acquire 1 self.sem_max_connections;
try
let client_sock, _ = Unix.accept sock in
Sem_.acquire 1 self.sem_max_connections;
self.new_thread
(fun () ->
try
@ -1199,8 +1199,9 @@ let run (self:t) : (unit,_) result =
raise e
);
with e ->
Sem_.release 1 self.sem_max_connections;
_debug (fun k -> k
"Unix.accept or Thread.create raised an exception: %s"
"Unix.accept raised an exception: %s"
(Printexc.to_string e))
done;
Ok ()