From: Tomasz Wroblewski <tomasz.wroblewski@citrix.com>
Date: Fri, 13 Nov 2009 15:30:33 +0000 (+0000)
Subject: Return with error code if caught exception
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=e315dd54651c36e6f99a5c524bec3ce8d8685658;p=xenclient%2Ftoolstack.git

Return with error code if caught exception
---

diff --git a/xenvm/xenvm_cmd.ml b/xenvm/xenvm_cmd.ml
index 6b4a078..9f63af7 100644
--- a/xenvm/xenvm_cmd.ml
+++ b/xenvm/xenvm_cmd.ml
@@ -52,4 +52,4 @@ let _ =
 		| Xenvmlib.Unknown s   -> eprintf "warning: unknown answer: \"%s\"\n" s
 	with
 	| Xenvmlib.Write_timeout -> eprintf "cannot send command to xenvm. it is dead ?\n"; exit 1
-	| exn                    -> eprintf "receive exception: %s\n" (Printexc.to_string exn)
+	| exn                    -> eprintf "receive exception: %s\n" (Printexc.to_string exn); exit 1