From: Stefano Zacchiroli Date: Tue, 28 Jun 2005 12:57:57 +0000 (+0000) Subject: fixed bug in response first line parsing (arbitrary reason phrases are X-Git-Tag: INDEXING_NO_PROOFS~27 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=7c691b9144be9e1fc8d6dfb4d830dccb489e06c0;p=helm.git fixed bug in response first line parsing (arbitrary reason phrases are now supported) --- diff --git a/helm/DEVEL/ocaml-http/debian/changelog b/helm/DEVEL/ocaml-http/debian/changelog index c3ebb8b62..2db109c18 100644 --- a/helm/DEVEL/ocaml-http/debian/changelog +++ b/helm/DEVEL/ocaml-http/debian/changelog @@ -1,6 +1,7 @@ ocaml-http (0.1.1+dev) UNRELEASED; urgency=low * added ?default parameter to "param" method + * fixed bug in response status line parsing -- Stefano Zacchiroli Wed, 16 Mar 2005 09:24:07 +0100 diff --git a/helm/DEVEL/ocaml-http/http_parser.ml b/helm/DEVEL/ocaml-http/http_parser.ml index ca17f02f7..af371bb1e 100644 --- a/helm/DEVEL/ocaml-http/http_parser.ml +++ b/helm/DEVEL/ocaml-http/http_parser.ml @@ -111,7 +111,7 @@ let parse_response_fst_line ic = debug_print (sprintf "HTTP response line (not yet parsed): %s" response_line); try (match Pcre.split ~rex:pieces_sep response_line with - | [ version_raw; code_raw; _ ] -> + | version_raw :: code_raw :: _ -> (version_of_string version_raw, (* method *) status_of_code (int_of_string code_raw)) (* status *) | _ -> raise (Malformed_response response_line))