diff options
| author | Maxim Dounin <mdounin@mdounin.ru> | 2019-07-12 15:39:25 +0300 |
|---|---|---|
| committer | Maxim Dounin <mdounin@mdounin.ru> | 2019-07-12 15:39:25 +0300 |
| commit | 9e883a2e48ff8e55fcfb091284b44d8fa66fc007 (patch) | |
| tree | 0ae24b6c333fdc4b0865144fd49e71d50df15c84 /src/http/modules/perl/ngx_http_perl_module.c | |
| parent | 78b39bd631fc18fd5778090183776f5275005e21 (diff) | |
| download | nginx-9e883a2e48ff8e55fcfb091284b44d8fa66fc007.tar.gz nginx-9e883a2e48ff8e55fcfb091284b44d8fa66fc007.zip | |
Perl: additional ctx->header_sent checks.
As we now have ctx->header_sent flag, it is further used to prevent
duplicate $r->send_http_header() calls, prevent output before sending
header, and $r->internal_redirect() after sending header.
Further, $r->send_http_header() protected from calls after
$r->internal_redirect().
Diffstat (limited to 'src/http/modules/perl/ngx_http_perl_module.c')
| -rw-r--r-- | src/http/modules/perl/ngx_http_perl_module.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c index dc2125935..d2a0dfae5 100644 --- a/src/http/modules/perl/ngx_http_perl_module.c +++ b/src/http/modules/perl/ngx_http_perl_module.c @@ -394,6 +394,7 @@ ngx_http_perl_ssi(ngx_http_request_t *r, ngx_http_ssi_ctx_t *ssi_ctx, pmcf = ngx_http_get_module_main_conf(r, ngx_http_perl_module); ctx->ssi = ssi_ctx; + ctx->header_sent = 1; handler = params[NGX_HTTP_PERL_SSI_SUB]; handler->data[handler->len] = '\0'; |