debug

src/core/IO.ml

@@ -326,16 +326,12 @@ module Input = struct
       let line = read_line_using ~buf:line_buf ic in
       (* parse chunk length, ignore extensions *)
       let chunk_size =
-        if String.trim line = "" then
-          0
-        else (
-          try
-            let off = ref 0 in
-            let n = Parse_.pos_hex line off in
-            n
-          with _ ->
-            raise (fail (spf "cannot read chunk size from line %S" line))
-        )
+        try
+          let off = ref 0 in
+          let n = Parse_.pos_hex line off in
+          n
+        with _ ->
+          raise (fail (spf "cannot read chunk size from line %S" line))
       in
       chunk_size
     in
@@ -348,7 +344,13 @@ module Input = struct
       method private refill (slice : Slice.t) : unit =
         if !chunk_size = 0 && not !eof then (
           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.len <- 0;