[rpc-light] In xmlrpc, when waiting for a tag opening, do not pay attention to any DTD

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

diff --git a/rpc-light/xmlrpc.ml b/rpc-light/xmlrpc.ml
index 3f1dba3a2289ada2cb30c83450c007fd5fd232e3..ceb8c3d12790d4565e6139d8d9bd9a905fdbc4dd 100644 (file)
--- a/rpc-light/xmlrpc.ml
+++ b/rpc-light/xmlrpc.ml
@@ -207,7 +207,7 @@ module Parser = struct
 
        let rec open_tag input =
                match Xmlm.input input with
-               | `Dtd _                  -> parse_error "dtd" "open_tag" input
+               | `Dtd _                  -> open_tag input
                | `El_start ((_,tag),_)   -> tag
                | `Data d when is_empty d -> open_tag input
                | `Data d                 -> parse_error (sprintf "data(%s)" (String.escaped d)) "open_tag" input