mirror/nginx
1
0
Fork 0
mirror of https://github.com/nginx/nginx.git synced 2025-06-07 17:52:38 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

some perl builds require my_perl for PERL_SYS_TERM()

Browse Source
This commit is contained in:
Igor Sysoev 2008-03-17 08:58:07 +00:00
parent d8623fc535
commit 37cc29a405
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/http/modules/perl/ngx_http_perl_module.c
View File

@ -1059,5 +1059,16 @@ ngx_http_perl_init_worker(ngx_cycle_t *cycle)
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();
}
}