# HG changeset patch
# User Igor Sysoev <igor@sysoev.ru>
# Date 1160060747 0
# Node ID 63a08390a8a27d7e5d66d3d5f004d75d11a6eb29
# Parent  5187a63d9fca72540c019de3896a6e1b78610cb0
$r->headers_out("Content-Length", "NNN") did not work

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -439,10 +439,9 @@ header_out(r, key, value)
 
     if (header->key.len == sizeof("Content-Length") - 1
         && ngx_strncasecmp(header->key.data, "Content-Length",
-                           sizeof("Content-Length") - 1) == 0
-        && SvIOK(value))
+                           sizeof("Content-Length") - 1) == 0)
     {
-        r->headers_out.content_length_n = (ssize_t) SvIV(value);;
+        r->headers_out.content_length_n = (off_t) SvIV(value);
         r->headers_out.content_length = header;
     }