From 44a1fb9b1f6cd3eeb30e517fd072d5f973eddb36 Mon Sep 17 00:00:00 2001
From: Tomasz Wroblewski <tomasz.wroblewski@citrix.com>
Date: Fri, 13 Nov 2009 18:34:28 +0000
Subject: [PATCH] Fix status after invoking "destroy" -> needs to be shutdown

---
 xenvm/xenvm.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xenvm/xenvm.ml b/xenvm/xenvm.ml
index 715f1a7..387c4e2 100644
--- a/xenvm/xenvm.ml
+++ b/xenvm/xenvm.ml
@@ -408,7 +408,7 @@ let do_task state (task, args) =
 		notify_quit state; Xenvmlib.Ok
 	| Tasks.Help ->
 		do_help ();
-	| Tasks.Destroy -> with_xcs (fun xc xs -> Vmact.stop_vm xc xs state); Xenvmlib.Ok
+	| Tasks.Destroy -> with_xcs (fun xc xs -> Vmact.stop_vm xc xs state; Vmact.change_vmstate state VmShutdown); Xenvmlib.Ok
 	| Tasks.Halt ->
 		let force = optional_arg false Tasks.args_get_bool args "forced" in
 		with_xcs (fun xc xs ->
-- 
2.39.5