Mercurial > hg > nginx
diff src/http/modules/perl/ngx_http_perl_module.c @ 1258:5076d97b9cf0
fix building on threaded or multiplicity interpreter perl,
the bug was introduced by previous commit
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Sat, 16 Jun 2007 09:22:37 +0000 |
parents | 927b06411194 |
children | e958b3cab51a |
line wrap: on
line diff
--- a/src/http/modules/perl/ngx_http_perl_module.c Fri Jun 15 12:20:23 2007 +0000 +++ b/src/http/modules/perl/ngx_http_perl_module.c Sat Jun 16 09:22:37 2007 +0000 @@ -1008,10 +1008,21 @@ static ngx_int_t ngx_http_perl_init_worker(ngx_cycle_t *cycle) { + ngx_http_perl_main_conf_t *pmcf; + + pmcf = ngx_http_cycle_get_module_main_conf(cycle, ngx_http_perl_module); + + { + + dTHXa(pmcf->perl); + PERL_SET_CONTEXT(pmcf->perl); + /* set worker's $$ */ sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32) ngx_pid); + } + return NGX_OK; }