Mercurial > hg > nginx
comparison src/http/modules/perl/ngx_http_perl_module.c @ 3082:5e8bf3e983d2
fix request counter handling for perl handler, introduced in r3050
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Fri, 04 Sep 2009 09:54:16 +0000 |
parents | f54b02dbb12b |
children | 4a2d3f571de6 |
comparison
equal
deleted
inserted
replaced
3081:10bfdd8d5eb9 | 3082:5e8bf3e983d2 |
---|---|
177 { | 177 { |
178 if (r->zero_in_uri) { | 178 if (r->zero_in_uri) { |
179 return NGX_HTTP_NOT_FOUND; | 179 return NGX_HTTP_NOT_FOUND; |
180 } | 180 } |
181 | 181 |
182 r->main->count++; | |
183 | |
182 ngx_http_perl_handle_request(r); | 184 ngx_http_perl_handle_request(r); |
183 | 185 |
184 return NGX_DONE; | 186 return NGX_DONE; |
185 } | 187 } |
186 | 188 |
230 rc = ngx_http_perl_call_handler(aTHX_ r, pmcf->nginx, sub, NULL, handler, | 232 rc = ngx_http_perl_call_handler(aTHX_ r, pmcf->nginx, sub, NULL, handler, |
231 NULL); | 233 NULL); |
232 | 234 |
233 } | 235 } |
234 | 236 |
237 ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, | |
238 "perl handler done: %i", rc); | |
239 | |
235 if (rc == NGX_DONE) { | 240 if (rc == NGX_DONE) { |
236 return; | 241 return; |
237 } | 242 } |
238 | 243 |
239 if (rc > 600) { | 244 if (rc > 600) { |
240 rc = NGX_OK; | 245 rc = NGX_OK; |
241 } | 246 } |
242 | |
243 ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, | |
244 "perl handler done: %i", rc); | |
245 | 247 |
246 if (ctx->redirect_uri.len) { | 248 if (ctx->redirect_uri.len) { |
247 uri = ctx->redirect_uri; | 249 uri = ctx->redirect_uri; |
248 args = ctx->redirect_args; | 250 args = ctx->redirect_args; |
249 | 251 |