mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

daemon: utils: Small refactoring to hide ‘chan’ from code.

Browse Source
This commit is contained in:
Richard W.M. Jones
2017-08-08 16:23:10 +01:00
parent 2eac205e25
commit 42085b6bd5
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
daemon/utils.ml
View File

@@ -33,11 +33,13 @@ let commandr ?(fold_stdout_on_stderr = false) prog args =
let argv = Array.of_list (prog :: args) in
let stdout_file, stdout_chan = Filename.open_temp_file "cmd" ".out" in
let stderr_file, stderr_chan = Filename.open_temp_file "cmd" ".err" in
let stdout_fd = descr_of_out_channel stdout_chan in
let stderr_fd = descr_of_out_channel stderr_chan in
let stdin_fd = openfile "/dev/null" [O_RDONLY] 0 in
let stdout_file, stdout_fd =
let filename, chan = Filename.open_temp_file "cmd" ".out" in
filename, descr_of_out_channel chan in
let stderr_file, stderr_fd =
let filename, chan = Filename.open_temp_file "cmd" ".err" in
filename, descr_of_out_channel chan in
let pid = fork () in
if pid = 0 then (