diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/http/modules/perl/nginx.xs | 2 | ||||
| -rw-r--r-- | src/http/modules/perl/ngx_http_perl_module.c | 4 | ||||
| -rw-r--r-- | src/http/modules/perl/ngx_http_perl_module.h | 1 |
3 files changed, 7 insertions, 0 deletions
diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs index 67ec0a564..34ce9daed 100644 --- a/src/http/modules/perl/nginx.xs +++ b/src/http/modules/perl/nginx.xs @@ -164,6 +164,8 @@ send_http_header(r, ...) } } + ctx->header_sent = 1; + r->disable_not_modified = 1; rc = ngx_http_send_header(r); diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c index 81b2526ad..dc2125935 100644 --- a/src/http/modules/perl/ngx_http_perl_module.c +++ b/src/http/modules/perl/ngx_http_perl_module.c @@ -780,6 +780,10 @@ ngx_http_perl_call_handler(pTHX_ ngx_http_request_t *r, ctx->redirect_uri.len = 0; + if (ctx->header_sent) { + return NGX_ERROR; + } + return NGX_HTTP_INTERNAL_SERVER_ERROR; } diff --git a/src/http/modules/perl/ngx_http_perl_module.h b/src/http/modules/perl/ngx_http_perl_module.h index b67ce137c..da3a16235 100644 --- a/src/http/modules/perl/ngx_http_perl_module.h +++ b/src/http/modules/perl/ngx_http_perl_module.h @@ -34,6 +34,7 @@ typedef struct { unsigned done:1; unsigned error:1; unsigned variable:1; + unsigned header_sent:1; ngx_array_t *variables; /* array of ngx_http_perl_var_t */ |