close on exit for vmmd.sock

2018-10-28 20:49:42 +01:00 · 2018-10-28 20:49:42 +01:00 · 6677e3f1cb
parent 8ab37d6b3b
commit 6677e3f1cb
1 changed files with 1 additions and 0 deletions
--- a/app/vmmd.ml
+++ b/app/vmmd.ml
@ -142,6 +142,7 @@ let server_socket sock =
    | true -> Lwt_unix.unlink name
    | false -> Lwt.return_unit) >>= fun () ->
  let s = Lwt_unix.(socket PF_UNIX SOCK_STREAM 0) in
+  Lwt_unix.set_close_on_exec s ;
  Lwt_unix.(bind s (ADDR_UNIX name)) >|= fun () ->
  Lwt_unix.listen s 1 ;
  s