Mercurial > hg > nginx-quic
comparison src/http/modules/perl/ngx_http_perl_module.c @ 3351:b759cf8f6000
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 |