Mercurial > hg > nginx

changeset 1946:171a283af56b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
some perl builds require my_perl for PERL_SYS_TERM()
author Igor Sysoev <igor@sysoev.ru>
date Mon, 17 Mar 2008 08:58:07 +0000
parents ab18958e1322
children 94b03bbd328e
files src/http/modules/perl/ngx_http_perl_module.c
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -1059,5 +1059,16 @@ ngx_http_perl_init_worker(ngx_cycle_t *c
 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();
+
+    }
 }