From c0279b618331f097088abb0fa2cd7d20caadc858 Mon Sep 17 00:00:00 2001 From: Thomas Gazagnaire Date: Mon, 11 Jan 2010 17:44:38 +0000 Subject: [PATCH] [rpc-light] In xmlrpc, when waiting for a tag opening, do not pay attention to any DTD Signed-off-by: Thomas Gazagnaire --- rpc-light/xmlrpc.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpc-light/xmlrpc.ml b/rpc-light/xmlrpc.ml index 3f1dba3..ceb8c3d 100644 --- 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 -- 2.39.5