We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
with_logfile_fd
2 parents 19f2398 + 8598615 commit ab236cfCopy full SHA for ab236cf
ocaml/xapi/vhd_qcow_parsing.ml
@@ -19,9 +19,11 @@ open D
19
let run_tool tool ?(replace_fds = []) ?input_fd ?output_fd
20
(_progress_cb : int -> unit) (args : string list) =
21
info "Executing %s %s" tool (String.concat " " args) ;
22
+ (* with_logfile_fd takes a name without slashes *)
23
+ let log_name = Filename.basename tool in
24
let open Forkhelpers in
25
match
- with_logfile_fd tool (fun log_fd ->
26
+ with_logfile_fd log_name (fun log_fd ->
27
let pid =
28
safe_close_and_exec input_fd output_fd (Some log_fd) replace_fds tool
29
args
0 commit comments