From: Igor Sysoev <igor@sysoev.ru>
Date: Fri, 4 Sep 2009 09:54:16 +0000 (+0000)
Subject: fix request counter handling for perl handler, introduced in r3050
X-Git-Tag: release-0.8.14~4
X-Git-Url: http://www.kaiwu.me/postgresql/commit/?a=commitdiff_plain;h=7d71c80b16058f79a6c269dc07c39f8a5ec06134;p=nginx.git

fix request counter handling for perl handler, introduced in r3050
---

diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c
index c4f52a58f..34ecc9a33 100644
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -179,6 +179,8 @@ ngx_http_perl_handler(ngx_http_request_t *r)
         return NGX_HTTP_NOT_FOUND;
     }
 
+    r->main->count++;
+
     ngx_http_perl_handle_request(r);
 
     return NGX_DONE;
@@ -232,6 +234,9 @@ ngx_http_perl_handle_request(ngx_http_request_t *r)
 
     }
 
+    ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
+                   "perl handler done: %i", rc);
+
     if (rc == NGX_DONE) {
         return;
     }
@@ -240,9 +245,6 @@ ngx_http_perl_handle_request(ngx_http_request_t *r)
         rc = NGX_OK;
     }
 
-    ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
-                   "perl handler done: %i", rc);
-
     if (ctx->redirect_uri.len) {
         uri = ctx->redirect_uri;
         args = ctx->redirect_args;