Mercurial > hg > nginx

comparison src/http/modules/perl/ngx_http_perl_module.c @ 3082:5e8bf3e983d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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