commit 81a6538077cc686ff825957770803d2ae88efaab
author Maxim Dounin <mdounin@mdounin.ru> Fri Jul 12 15:38:27 2019 +0300
committer Maxim Dounin <mdounin@mdounin.ru> Fri Jul 12 15:38:27 2019 +0300
tree 58404fd977b6bd74718d5143c3ce0539795bab19
parent 5f46384ad0258d18e25f1ff7a854e088558843d6

Perl: avoid redirects on errors.

Previously, redirects scheduled with $r->internal_redirect() were followed
even if the code then died.  Now these are ignored and nginx will return
an error instead.

src/http/modules/perl/ngx_http_perl_module.c

diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c
index a383e90..81b2526 100644
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -778,6 +778,8 @@
             return NGX_ERROR;
         }
 
+        ctx->redirect_uri.len = 0;
+
         return NGX_HTTP_INTERNAL_SERVER_ERROR;
     }