r1445 merge:

allow to append charset to the "Content-Type" header

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
index dd01f3b3cc02e74e1d54a7b6c8329063c637c1e0..d6ba70a28f26dc3e0b34b9c40be4b6c0daee9fe6 100644 (file)
--- 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;