changeset 741:63a08390a8a2

$r->headers_out("Content-Length", "NNN") did not work
author Igor Sysoev <igor@sysoev.ru>
date Thu, 05 Oct 2006 15:05:47 +0000
parents 5187a63d9fca
children 75d767d32624
files src/http/modules/perl/nginx.xs
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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;
     }