[Xen-devel] [PATCH] when reading / read automatically the root node.

[Vincent Hanquez <vincent.hanquez@xxxxxxxxxxxxx>]

Signed-off-by: Vincent Hanquez <vincent.hanquez@xxxxxxxxxxxxx>
---
 tools/ocaml/xenstored/store.ml |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/tools/ocaml/xenstored/store.ml b/tools/ocaml/xenstored/store.ml
index 34552bb..4c9b166 100644
--- a/tools/ocaml/xenstored/store.ml
+++ b/tools/ocaml/xenstored/store.ml
@@ -300,7 +300,12 @@ let read store perm path =
                Node.check_perm ent perm Perms.READ;
                ent.Node.value
        in
-       Path.apply store.root path do_read
+       if path = [] then (
+               let ent = store.root in
+               Node.check_perm ent perm Perms.READ;
+               ent.Node.value
+       ) else
+               Path.apply store.root path do_read
 
 let ls store perm path =
        let children =
-- 
1.7.1


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