# HG changeset patch # User Thomas Gazagnaire # Date 1262958466 0 # Node ID 43b829970c8cd5b8825724d2525c37b3ad3d6557 # Parent 28e332232a4922c6172a64055671272deef026b4 [rpc-light] In xmlrpc, when waiting for a tag opening, do not pay attention to any DTD Signed-off-by: Thomas Gazagnaire diff -r 28e332232a49 -r 43b829970c8c rpc-light/xmlrpc.ml --- a/rpc-light/xmlrpc.ml Fri Jan 08 13:47:46 2010 +0000 +++ b/rpc-light/xmlrpc.ml Fri Jan 08 13:47:46 2010 +0000 @@ -207,7 +207,7 @@ 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