From: Tomasz Wroblewski <tomasz.wroblewski@citrix.com>
Date: Fri, 13 Nov 2009 18:34:28 +0000 (+0000)
Subject: Fix status after invoking "destroy" -> needs to be shutdown
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=44a1fb9b1f6cd3eeb30e517fd072d5f973eddb36;p=xenclient%2Ftoolstack.git

Fix status after invoking "destroy" -> needs to be shutdown
---

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 ->