Mercurial > hg > nginx

comparison src/http/modules/perl/ngx_http_perl_module.c @ 1165:efb7d84db340

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix segfault when *) perl was built without multiplicity *) when configuration was invalid
author Igor Sysoev <igor@sysoev.ru>
date Wed, 18 Apr 2007 11:28:11 +0000
parents 8288459f15c9
children aa653367028e
comparison
equal deleted inserted replaced
1164:d201e0461c3c 1165:efb7d84db340
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 }