From 7c691b9144be9e1fc8d6dfb4d830dccb489e06c0 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Tue, 28 Jun 2005 12:57:57 +0000 Subject: [PATCH] fixed bug in response first line parsing (arbitrary reason phrases are now supported) --- helm/DEVEL/ocaml-http/debian/changelog | 1 + helm/DEVEL/ocaml-http/http_parser.ml | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.2