commit 37cc29a405ac8f3dc318d475de01e1ccfc96c07f
author Igor Sysoev <igor@sysoev.ru> Mon Mar 17 08:58:07 2008 +0000
committer Igor Sysoev <igor@sysoev.ru> Mon Mar 17 08:58:07 2008 +0000
tree 28a13c5ec769bdfba8e6b418703caba6340e9341
parent d8623fc5356b8094bdd8f16d4f37bf7219c4e9b4

some perl builds require my_perl for PERL_SYS_TERM()

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 6f84d59..ab89cad 100644
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -1059,5 +1059,16 @@
 static void
 ngx_http_perl_exit(ngx_cycle_t *cycle)
 {
+    ngx_http_perl_main_conf_t  *pmcf;
+
+    pmcf = ngx_http_cycle_get_module_main_conf(cycle, ngx_http_perl_module);
+
+    {
+
+    dTHXa(pmcf->perl);
+    PERL_SET_CONTEXT(pmcf->perl);
+
     PERL_SYS_TERM();
+
+    }
 }