# HG changeset patch
# User Igor Sysoev <igor@sysoev.ru>
# Date 1258453899 0
# Node ID b759cf8f600083dc5186a72ba5b4f4d957d5963d
# Parent  67da53a19e02f5c97dc28d1a7901328312104301
add comment from r2716 commit message

diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -1063,9 +1063,15 @@ ngx_http_perl_exit(ngx_cycle_t *cycle)
 {
 #if (NGX_HAVE_PERL_MULTIPLICITY)
 
+    /*
+     * the master exit hook is run before global pool cleanup,
+     * therefore just set flag here
+     */
+
     ngx_perl_term = 1;
 
 #else
+
     if (nginx_stash) {
         ngx_log_debug0(NGX_LOG_DEBUG_HTTP, cycle->log, 0, "perl term");