Fix a leak of fd from h2 - we must shutdown the connection to really close the fd

This commit is contained in:
Romain Calascibetta 2022-09-01 09:50:53 +02:00
parent 3aca170154
commit d03cd65dcd

View file

@ -219,7 +219,8 @@ let single_h2_request ~sleep ?config ~scheme flow user_pass host meth path heade
Lwt.async (fun () -> Paf.run (module H2.Client_connection) ~sleep conn flow) ; Lwt.async (fun () -> Paf.run (module H2.Client_connection) ~sleep conn flow) ;
Option.iter (H2.Body.Writer.write_string request_body) body ; Option.iter (H2.Body.Writer.write_string request_body) body ;
H2.Body.Writer.close request_body ; H2.Body.Writer.close request_body ;
finished finished >|= fun v ->
H2.Client_connection.shutdown conn ; v
let decode_uri ~ctx uri = let decode_uri ~ctx uri =
let ( >>= ) = Result.bind in let ( >>= ) = Result.bind in