From 705bd3045884150e3d00f305717b49377f19da67 Mon Sep 17 00:00:00 2001 From: Daniel Stodden Date: Wed, 26 Jan 2011 17:39:04 +0000 Subject: [PATCH] CA-40610: Fix lvhdrt/tc8713 vm cleanup path. Signed-off-by: Daniel Stodden --- ocaml/lvhdrt/utils.ml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ocaml/lvhdrt/utils.ml b/ocaml/lvhdrt/utils.ml index c1e44439..fdec789e 100644 --- a/ocaml/lvhdrt/utils.ml +++ b/ocaml/lvhdrt/utils.ml @@ -232,6 +232,8 @@ let with_sacrificial_vm rpc session f = Pervasiveext.finally (fun () -> f vm') (fun () -> + if Client.VM.get_power_state rpc session vm' <> `Halted then + Client.VM.hard_shutdown rpc session vm'; List.iter (fun vbd -> let vdi = Client.VBD.get_VDI rpc session vbd in -- 2.39.5