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

Signed-off-by: Vincent Hanquez <vincent.hanquez@eu.citrix.com>
---
 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@lists.xensource.com
http://lists.xensource.com/xen-devel