From 73652e2bfc8a785e9b3dc447e0a0ced4716549e3 Mon Sep 17 00:00:00 2001 From: John Estabrook Date: Wed, 23 Oct 2024 18:50:46 -0500 Subject: T6718: set perms on socket for group write access --- src/startup.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'src') diff --git a/src/startup.ml b/src/startup.ml index beb125e..db0d719 100644 --- a/src/startup.ml +++ b/src/startup.ml @@ -67,6 +67,7 @@ let create_socket sockfile = let backlog = 10 in let%lwt sock = socket PF_UNIX SOCK_STREAM 0 |> Lwt.return in let%lwt () = Lwt_unix.bind sock @@ ADDR_UNIX(sockfile) in + let%lwt () = Lwt_unix.chmod sockfile 0o775 in listen sock backlog; Lwt.return sock -- cgit v1.2.3