Mercurial > hg > nginx
changeset 1946:171a283af56b
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 Sun Mar 16 18:03:10 2008 +0000 +++ b/src/http/modules/perl/ngx_http_perl_module.c Mon Mar 17 08:58:07 2008 +0000 @@ -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(); + + } }