CA-41811: xapi must create /var/patch when downloading patches from master

Signed-off-by: Marcus Granado <marcus.granado@eu.citrix.com>

diff --git a/ocaml/xapi/xapi_pool_patch.ml b/ocaml/xapi/xapi_pool_patch.ml
index 4dba0d7a9a605401a7499f58db70430224e44aa6..7ffb68922454d47469e58eeee0683e0798084b6f 100644 (file)
--- a/ocaml/xapi/xapi_pool_patch.ml
+++ b/ocaml/xapi/xapi_pool_patch.ml
@@ -448,6 +448,7 @@ let get_patch_to_local ~__context ~self =
                [ Printf.sprintf "GET %s HTTP/1.1" request; ] in  
              let length = Some (Db.Pool_patch.get_size ~__context ~self) in
              let f content_length tast_opt s =
+               let _ = Unixext.mkdir_safe patch_dir 0o755 in
                read_in_and_check_patch length s path
              in
              let master_address = Pool_role.get_master_address () in