Merge pull request #9130 from Leonidas-from-XIV/shared-flock-fix

Set the right flags when `Shared` is selected.
ocaml · Nov 10, 2023 · eb0d51e · eb0d51e
2 parents 39e6c72 + 29d349a
commit eb0d51e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/dune_util/dune_flock.c b/src/dune_util/dune_flock.c
@@ -52,6 +52,8 @@ CAMLprim value dune_flock_lock(value v_fd, value v_block, value v_exclusive) {
   int flags = 0;
   if (Bool_val(v_exclusive)) {
     flags |= LOCK_EX;
+  } else {
+    flags |= LOCK_SH;
   }
   if (!Bool_val(v_block)) {
     flags |= LOCK_NB;