[Xen-devel] [PATCH 4 of 7] [OCAML] Fix a problem with ocaml xenstored

[Jon Ludlam <jonathan.ludlam@xxxxxxxxxxxxx>]

Have xenstored trigger an @introduceDomain event even if the
introduce call tries to introduce an already existing domain.

Signed-off-by: Thomas Gazagnaire <thomas@xxxxxxxxxxxx>
Acked-by: Jon Ludlam <jonathan.ludlam@xxxxxxxxxxxxx>

diff -r 734cb0807357 -r b6022a18ebb0 tools/ocaml/xenstored/process.ml
--- a/tools/ocaml/xenstored/process.ml
+++ b/tools/ocaml/xenstored/process.ml
@@ -168,9 +168,10 @@
                | _                         -> raise Invalid_Cmd_Args;
                in
        let dom =
-               if Domains.exist domains domid then
+               if Domains.exist domains domid then begin
+                       Connections.fire_spec_watches cons "@introduceDomain";
                        Domains.find domains domid
-               else try
+               end else try
                        let ndom = Xc.with_intf (fun xc ->
                                Domains.create xc domains domid mfn port) in
                        Connections.add_domain cons ndom;

_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/xen-devel