Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Safely make the message directory if necessary

Signed-off-by: Jon Ludlam <>
  • Loading branch information...
commit f2c23f6bad79272e749ecb9c32fbc5cb71ba5246 1 parent 5885a67
@jonludlam jonludlam authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  ocaml/xapi/
2  ocaml/xapi/
@@ -305,7 +305,7 @@ let write ~__context ~_ref ~message =
gen := Db_cache_types.Manifest.generation (Db_cache_types.Database.manifest db);
Db_cache_types.Database.increment db));
- Unixext.mkdir_safe message_dir 0o700;
+ Unixext.mkdir_rec message_dir 0o700;
let timestamp = ref (Date.to_float (message.API.message_timestamp)) in
if message_exists () then (Some (message_gen ()))
Please sign in to comment.
Something went wrong with that request. Please try again.