From daec217defc5d4c3044886282a587b9fda8f5165 Mon Sep 17 00:00:00 2001 From: Igor Sysoev Date: Thu, 5 Oct 2006 15:05:47 +0000 Subject: $r->headers_out("Content-Length", "NNN") did not work --- src/http/modules/perl/nginx.xs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs index 6e6afed15..d261afa02 100644 --- 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; } -- cgit