mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
close input of subprocess once stdin has been sent to it
This commit is contained in:
parent
9708c4b01c
commit
a4c8e3e408
1 changed files with 1 additions and 0 deletions
|
|
@ -343,6 +343,7 @@ let spawn_process ?(pool=default_pool) ?(stdin="") ~cmd =
|
|||
output_string inp stdin;
|
||||
(* send stdin to command *)
|
||||
flush inp;
|
||||
close_out inp;
|
||||
(* read output of process *)
|
||||
let out' = slurp out in
|
||||
let err' = slurp err in
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue