Mercurial > hg > nginx
comparison 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 |
comparison
equal
deleted
inserted
replaced
740:5187a63d9fca | 741:63a08390a8a2 |
---|---|
437 XSRETURN_EMPTY; | 437 XSRETURN_EMPTY; |
438 } | 438 } |
439 | 439 |
440 if (header->key.len == sizeof("Content-Length") - 1 | 440 if (header->key.len == sizeof("Content-Length") - 1 |
441 && ngx_strncasecmp(header->key.data, "Content-Length", | 441 && ngx_strncasecmp(header->key.data, "Content-Length", |
442 sizeof("Content-Length") - 1) == 0 | 442 sizeof("Content-Length") - 1) == 0) |
443 && SvIOK(value)) | |
444 { | 443 { |
445 r->headers_out.content_length_n = (ssize_t) SvIV(value);; | 444 r->headers_out.content_length_n = (off_t) SvIV(value); |
446 r->headers_out.content_length = header; | 445 r->headers_out.content_length = header; |
447 } | 446 } |
448 | 447 |
449 XSRETURN_EMPTY; | 448 XSRETURN_EMPTY; |
450 | 449 |