Mercurial > hg > nginx-quic

comparison src/http/modules/perl/ngx_http_perl_module.c @ 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 0e7deac300f1
children 2a92804f4109
comparison
equal deleted inserted replaced
1945:ab18958e1322 1946:171a283af56b
1057 1057
1058 1058
1059 static void 1059 static void
1060 ngx_http_perl_exit(ngx_cycle_t *cycle) 1060 ngx_http_perl_exit(ngx_cycle_t *cycle)
1061 { 1061 {
1062 ngx_http_perl_main_conf_t *pmcf;
1063
1064 pmcf = ngx_http_cycle_get_module_main_conf(cycle, ngx_http_perl_module);
1065
1066 {
1067
1068 dTHXa(pmcf->perl);
1069 PERL_SET_CONTEXT(pmcf->perl);
1070
1062 PERL_SYS_TERM(); 1071 PERL_SYS_TERM();
1063 } 1072
1073 }
1074 }