commit daec217defc5d4c3044886282a587b9fda8f5165
author Igor Sysoev <igor@sysoev.ru> Thu Oct 05 15:05:47 2006 +0000
committer Igor Sysoev <igor@sysoev.ru> Thu Oct 05 15:05:47 2006 +0000
tree a32921cbfe8dc4bb2db126a93ebc11cc87bc50a2
parent 54ed5aaf20b851cd94ec2f1740d92a28182b7c00

$r->headers_out("Content-Length", "NNN") did not work

src/http/modules/perl/nginx.xs

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
index 6e6afed..d261afa 100644
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -439,10 +439,9 @@
 
     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;
     }