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

only set non blocking for reading request, not to write answer

Browse source
This commit is contained in:
craff 2021-12-08 12:07:35 -10:00
parent b394527709
commit 9e9fe32347
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Tiny_httpd.ml
View file

@ -1000,8 +1000,9 @@ let find_map f l =
in aux f l in aux f l
let handle_client_ (self:t) (client_sock:Unix.file_descr) : unit = let handle_client_ (self:t) (client_sock:Unix.file_descr) : unit =
let write_sock = Unix.dup client_sock in
let _ = Unix.set_nonblock client_sock in let _ = Unix.set_nonblock client_sock in
let oc = Unix.out_channel_of_descr client_sock in let oc = Unix.out_channel_of_descr write_sock in
let buf = Buf_.create() in let buf = Buf_.create() in
let is = Byte_stream.of_descr ~timeout:self.max_keep_alive client_sock in let is = Byte_stream.of_descr ~timeout:self.max_keep_alive client_sock in
let continue = ref true in let continue = ref true in