Mercurial > hg > nginx
diff src/http/modules/perl/nginx.xs @ 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 | 7e24168b0853 |
children | 589841f06b87 |
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; }