comparison src/http/modules/perl/ngx_http_perl_module.c @ 222:dd6c66b5b0e2 NGINX_0_3_58

nginx 0.3.58 *) Feature: the "error_page" directive supports the variables. *) Change: now the procfs interface instead of sysctl is used on Linux. *) Change: now the "Content-Type" header line is inherited from first response when the "X-Accel-Redirect" was used. *) Bugfix: the "error_page" directive did not redirect the 413 error. *) Bugfix: the trailing "?" did not remove old arguments if no new arguments were added to a rewritten URI. *) Bugfix: nginx could not run on 64-bit FreeBSD 7.0-CURRENT.
author Igor Sysoev <http://sysoev.ru>
date Mon, 14 Aug 2006 00:00:00 +0400
parents fa32d59d9a15
children 38e7b94d63ac
comparison
equal deleted inserted replaced
221:52ac9a089ea5 222:dd6c66b5b0e2
224 ngx_http_perl_loc_conf_t *plcf; 224 ngx_http_perl_loc_conf_t *plcf;
225 ngx_http_perl_main_conf_t *pmcf; 225 ngx_http_perl_main_conf_t *pmcf;
226 226
227 ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, "perl handler"); 227 ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, "perl handler");
228 228
229 /* mod_perl's content handler assumes that content type was already set */
230
231 if (ngx_http_set_content_type(r) != NGX_OK) {
232 ngx_http_finalize_request(r, NGX_HTTP_INTERNAL_SERVER_ERROR);
233 return;
234 }
235
236 ctx = ngx_http_get_module_ctx(r, ngx_http_perl_module); 229 ctx = ngx_http_get_module_ctx(r, ngx_http_perl_module);
237 230
238 if (ctx == NULL) { 231 if (ctx == NULL) {
239 ctx = ngx_pcalloc(r->pool, sizeof(ngx_http_perl_ctx_t)); 232 ctx = ngx_pcalloc(r->pool, sizeof(ngx_http_perl_ctx_t));
240 if (ctx == NULL) { 233 if (ctx == NULL) {