send internally generated headers in lowercase form for consistency

diff --git a/DEVEL/ocaml-http/debian/changelog b/DEVEL/ocaml-http/debian/changelog
index 5d0033b8b5752834b76718810f34f480fb69d419..9b39aa5c47ab7c84c846fe036e82fd8b6ba8e780 100644 (file)
--- a/DEVEL/ocaml-http/debian/changelog
+++ b/DEVEL/ocaml-http/debian/changelog
@@ -1,3 +1,10 @@
+ocaml-http (0.1.4-1) UNRELEASED; urgency=low
+
+  * send internally generated headers as lowercase strings, for consistency
+    with headers generated via setXXX methods
+
+ -- Stefano Zacchiroli <zack@debian.org>  Wed, 24 Jan 2007 10:09:12 +0100
+
 ocaml-http (0.1.3-3) UNRELEASED; urgency=low
 
   * debian/rules

diff --git a/DEVEL/ocaml-http/http_daemon.ml b/DEVEL/ocaml-http/http_daemon.ml
index 992f3b99a8dc9a8bcf2ea31c19b2c05cfbd30f5f..f7c8495de2c5d747cb0872d19a18524333ce6255 100644 (file)
--- a/DEVEL/ocaml-http/http_daemon.ml
+++ b/DEVEL/ocaml-http/http_daemon.ml
@@ -36,6 +36,7 @@ let send_raw ~data outchan =
 let send_CRLF = send_raw ~data:crlf
 
 let send_header ~header ~value =
+  let header = String.lowercase header in
   Http_parser_sanity.heal_header (header, value);
   send_raw ~data:(header ^ ": " ^ value ^ crlf)