From 091977e506a414ad2c71ae113703d7fc607b85a2 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Wed, 24 Jan 2007 09:10:03 +0000 Subject: [PATCH] send internally generated headers in lowercase form for consistency --- helm/software/DEVEL/ocaml-http/debian/changelog | 7 +++++++ helm/software/DEVEL/ocaml-http/http_daemon.ml | 1 + 2 files changed, 8 insertions(+) diff --git a/helm/software/DEVEL/ocaml-http/debian/changelog b/helm/software/DEVEL/ocaml-http/debian/changelog index 5d0033b8b..9b39aa5c4 100644 --- a/helm/software/DEVEL/ocaml-http/debian/changelog +++ b/helm/software/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 Wed, 24 Jan 2007 10:09:12 +0100 + ocaml-http (0.1.3-3) UNRELEASED; urgency=low * debian/rules diff --git a/helm/software/DEVEL/ocaml-http/http_daemon.ml b/helm/software/DEVEL/ocaml-http/http_daemon.ml index 992f3b99a..f7c8495de 100644 --- a/helm/software/DEVEL/ocaml-http/http_daemon.ml +++ b/helm/software/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) -- 2.39.2