Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge commit '933fb9594d47b0d3e1deb27114d1eb6fb774fee4'

  • Loading branch information...
commit 9d2c7804c1dda03b25573e5b0a323edaefbd0b65 2 parents 3850d18 + 933fb95
xen-git authored
Showing with 3 additions and 4 deletions.
  1. +3 −4 http-svr/xmlrpc_client.ml
7 http-svr/xmlrpc_client.ml
View
@@ -293,8 +293,9 @@ module Protocol = functor(F: FORMAT) -> struct
let read_response r s =
try
match r.Http.Response.content_length with
- | Some l -> F.response_of_string (Unixext.really_read_string s (Int64.to_int l))
- | None -> F.response_of_file_descr s
+ | Some l when (Int64.to_int l) <= Sys.max_string_length ->
+ F.response_of_string (Unixext.really_read_string s (Int64.to_int l))
+ | Some _ | None -> F.response_of_file_descr s
with
| Unix.Unix_error(Unix.ECONNRESET, _, _) -> raise Connection_reset
@@ -308,8 +309,6 @@ end
module XML_protocol = Protocol(XML)
module XMLRPC_protocol = Protocol(XMLRPC)
-let read_xml_rpc_response = XML_protocol.read_response
-
Please sign in to comment.
Something went wrong with that request. Please try again.