# HG changeset patch
# User Jonathan Ludlam <Jonathan.Ludlam@xxxxxxxxxxxxx>
# Date 1266422772 0
# Node ID 20f86371f8cb81ef917867a03f4727f41bb66418
# Parent  6518f562e9d3e1e30818c5cfa5b40c8a4220ce2c
CA-35110: Fix unmarshaling of RRDs

Signed-off-by: Jon Ludlam <Jonathan.Ludlam@xxxxxxxxxxxxx>

diff -r 6518f562e9d3 -r 20f86371f8cb ocaml/xapi/rrd.ml
--- a/ocaml/xapi/rrd.ml	Wed Feb 17 16:06:11 2010 +0000
+++ b/ocaml/xapi/rrd.ml	Wed Feb 17 16:06:12 2010 +0000
@@ -591,7 +591,9 @@
   let tree = 
     let data d = D d in
     let el ((prefix,tag_name),attr) children = El (tag_name, children) in
-    Xmlm.input_tree ~data ~el input
+    match Xmlm.peek input with
+    | `Dtd _ -> snd (Xmlm.input_doc_tree ~data ~el input)
+    | _ -> Xmlm.input_tree ~data ~el input
   in
 
   let kvs elts = List.filter_map