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

close on exit for vmmd.sock

Browse source
This commit is contained in:
Hannes Mehnert 2018-10-28 20:49:42 +01:00
parent 8ab37d6b3b
commit 6677e3f1cb
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
app/vmmd.ml
View file

@ -142,6 +142,7 @@ let server_socket sock =
| true -> Lwt_unix.unlink name | true -> Lwt_unix.unlink name
| false -> Lwt.return_unit) >>= fun () -> | false -> Lwt.return_unit) >>= fun () ->
let s = Lwt_unix.(socket PF_UNIX SOCK_STREAM 0) in 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.(bind s (ADDR_UNIX name)) >|= fun () ->
Lwt_unix.listen s 1 ; Lwt_unix.listen s 1 ;
s s