From c01c370535640d3cbd4e4c3839d570c596e11695 Mon Sep 17 00:00:00 2001 From: John Estabrook Date: Sun, 6 Jul 2025 18:16:29 -0500 Subject: T7499: set appropriate permissions on write cache --- src/internal.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'src') diff --git a/src/internal.ml b/src/internal.ml index 3951f92..5ee3926 100644 --- a/src/internal.ml +++ b/src/internal.ml @@ -25,6 +25,7 @@ module Make : FI = functor (M: T) -> struct let () = Unix.ftruncate fd 0 in let () = Printf.fprintf oc "%s" ys in let () = Unix.fsync fd in + let () = Unix.chmod file_name 0o664 in close_out_noerr oc let read_internal file_name = -- cgit v1.2.3