From 72c8eb8baf0e29ce8d3dc809cb760e08d52caf0b Mon Sep 17 00:00:00 2001
From: Igor Sysoev <igor@sysoev.ru>
Date: Sun, 23 Sep 2007 19:26:53 +0000
Subject: [PATCH] r1445 merge:

allow to append charset to the "Content-Type" header
---
 src/http/modules/perl/nginx.xs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
index dd01f3b3c..d6ba70a28 100644
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -131,6 +131,8 @@ send_http_header(r, ...)
             XSRETURN_EMPTY;
         }
 
+        r->headers_out.content_type_len = r->headers_out.content_type.len;
+
     } else {
         if (ngx_http_set_content_type(r) != NGX_OK) {
             XSRETURN_EMPTY;