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 c3ebb8b62cf2ebe37d82947449bca5887f11ed25..2db109c18bfb1ac4c0c4bc210d2c3127e6916ad0 100644 (file)
--- 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 <zack@debian.org>  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 ca17f02f7b5fd10a0f17e330f55487f40b1d52fe..af371bb1ebd613c0bab0db53d3b68fd75dceafba 100644 (file)
--- 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))