Mercurial > hg > nginx-ranges

comparison src/http/modules/perl/ngx_http_perl_module.c @ 535:80f7156c2965 NGINX_0_8_14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
nginx 0.8.14 *) Bugfix: an expired cached response might stick in the "UPDATING" state. *) Bugfix: a segmentation fault might occur in worker process, if error_log was set to info or debug level. Thanks to Sergey Bochenkov. *) Bugfix: in embedded perl module; the bug had appeared in 0.8.11. *) Bugfix: an "error_page" directive did not redirect a 413 error; the bug had appeared in 0.6.10.
author Igor Sysoev <http://sysoev.ru>
date Mon, 07 Sep 2009 00:00:00 +0400
parents 86dad910eeb6
children 0161f3197817
comparison
equal deleted inserted replaced
534:441fbf722b8c 535:80f7156c2965
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