Mercurial > hg > nginx

comparison src/http/modules/perl/nginx.xs @ 741:63a08390a8a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
$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