# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1259087101 0
# Node ID 50d0301aa283e2f289891514fd0cce4e787db911
# Parent  3c4e4f66208468379b92ba47ec1e425a6cfc261b
[XIU]: write control/feature-balloon 3s after starting a simulated domain.

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r 3c4e4f662084 -r 50d0301aa283 ocaml/xiu/xiu.ml
--- a/ocaml/xiu/xiu.ml	Tue Nov 24 18:25:00 2009 +0000
+++ b/ocaml/xiu/xiu.ml	Tue Nov 24 18:25:01 2009 +0000
@@ -421,6 +421,10 @@
 		in
 
 	with_xs_retry (fun xs ->
+		(* booting *)
+		Thread.delay 3.;
+		xs.Xs.write (mypath ^ "control/feature-balloon") "true";
+
 		(* install watches *)
 		xs.Xs.watch (mypath ^ "control/shutdown") "control";
 		xs.Xs.watch (mypath ^ "device") "device";