comparison src/http/modules/perl/ngx_http_perl_module.c @ 296:2ceaee987f37 NGINX_0_5_18

nginx 0.5.18 *) Feature: the ngx_http_sub_filter_module. *) Feature: the "$upstream_http_..." variables. *) Feature: now the $upstream_status and $upstream_response_time variables keep data about all upstreams before X-Accel-Redirect. *) Bugfix: a segmentation fault occurred in master process after first reconfiguration and receiving any signal if nginx was built with ngx_http_perl_module and perl did not support multiplicity; bug appeared in 0.5.9. *) Bugfix: if perl did not support multiplicity, then after reconfiguration perl code did not work; bug appeared in 0.3.38.
author Igor Sysoev <http://sysoev.ru>
date Thu, 19 Apr 2007 00:00:00 +0400
parents 704622b2528a
children 55328d69b335
comparison
equal deleted inserted replaced
295:65b7ac8795e3 296:2ceaee987f37
457 } 457 }
458 458
459 #if !(NGX_HAVE_PERL_MULTIPLICITY) 459 #if !(NGX_HAVE_PERL_MULTIPLICITY)
460 460
461 if (perl) { 461 if (perl) {
462
463 if (ngx_set_environment(cf->cycle, NULL) == NULL) {
464 return NGX_CONF_ERROR;
465 }
466
462 if (ngx_http_perl_run_requires(aTHX_ &pmcf->requires, cf->log) 467 if (ngx_http_perl_run_requires(aTHX_ &pmcf->requires, cf->log)
463 != NGX_OK) 468 != NGX_OK)
464 { 469 {
465 return NGX_CONF_ERROR; 470 return NGX_CONF_ERROR;
466 } 471 }
467 472
468 pmcf->perl = perl; 473 pmcf->perl = perl;
474 pmcf->nginx = nginx_stash;
469 475
470 return NGX_CONF_OK; 476 return NGX_CONF_OK;
471 } 477 }
472 478
473 #endif 479 #endif