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

fix

Browse source
This commit is contained in:
Simon Cruanes 2024-06-18 17:04:19 -04:00
parent 4705278c3b
commit 3cdec1c0c7
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/core/IO.ml
View file

@ -348,7 +348,14 @@ module Input = struct
method private refill (slice : Slice.t) : unit = method private refill (slice : Slice.t) : unit =
if !chunk_size = 0 && not !eof then ( if !chunk_size = 0 && not !eof then (
chunk_size := read_next_chunk_len (); chunk_size := read_next_chunk_len ();
if !chunk_size = 0 then eof := true (* stream is finished *) if !chunk_size = 0 then (
(* stream is finished, consume trailing \r\n *)
eof := true;
let line = read_line_using ~buf:line_buf ic in
if String.trim line <> "" then
raise
(fail (spf "expected \\r\\n to follow last chunk, got %S" line))
)
); );
slice.off <- 0; slice.off <- 0;
slice.len <- 0; slice.len <- 0;