Mercurial > hg > nginx

comparison src/http/modules/perl/ngx_http_perl_module.c @ 3351:b759cf8f6000

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add comment from r2716 commit message
author Igor Sysoev <igor@sysoev.ru>
date Tue, 17 Nov 2009 10:31:39 +0000
parents 67da53a19e02
children 54e7c85ed4b4
comparison
equal deleted inserted replaced
3350:67da53a19e02 3351:b759cf8f6000
1061 static void 1061 static void
1062 ngx_http_perl_exit(ngx_cycle_t *cycle) 1062 ngx_http_perl_exit(ngx_cycle_t *cycle)
1063 { 1063 {
1064 #if (NGX_HAVE_PERL_MULTIPLICITY) 1064 #if (NGX_HAVE_PERL_MULTIPLICITY)
1065 1065
1066 /*
1067 * the master exit hook is run before global pool cleanup,
1068 * therefore just set flag here
1069 */
1070
1066 ngx_perl_term = 1; 1071 ngx_perl_term = 1;
1067 1072
1068 #else 1073 #else
1074
1069 if (nginx_stash) { 1075 if (nginx_stash) {
1070 ngx_log_debug0(NGX_LOG_DEBUG_HTTP, cycle->log, 0, "perl term"); 1076 ngx_log_debug0(NGX_LOG_DEBUG_HTTP, cycle->log, 0, "perl term");
1071 1077
1072 (void) perl_destruct(perl); 1078 (void) perl_destruct(perl);
1073 1079