reynir/albatross
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

set umask in mkfifo

Browse source
This commit is contained in:
Hannes Mehnert 2019-11-21 13:07:02 +01:00
parent 34817a2090
commit eccdaeafda
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/vmm_unix.ml
View file

@ -191,8 +191,15 @@ let prepare name vm =
| Ok true -> Ok () | Ok true -> Ok ()
| Ok false -> R.error_msgf "file %a exists and is not a fifo" Fpath.pp fifo | Ok false -> R.error_msgf "file %a exists and is not a fifo" Fpath.pp fifo
| Error _ -> | Error _ ->
try Ok (mkfifo fifo) with let old_umask = Unix.umask 0 in
let _ = Unix.umask (old_umask land 0o707) in
try
let f = mkfifo fifo in
let _ = Unix.umask old_umask in
Ok f
with
| Unix.Unix_error (e, f, _) -> | Unix.Unix_error (e, f, _) ->
let _ = Unix.umask old_umask in
R.error_msgf "file %a error in %s: %a" Fpath.pp fifo f pp_unix_err e R.error_msgf "file %a error in %s: %a" Fpath.pp fifo f pp_unix_err e
end >>= fun () -> end >>= fun () ->
List.fold_left (fun acc b -> List.fold_left (fun acc b ->