mirror/nginx
1
0
Fork 0
mirror of https://github.com/nginx/nginx.git synced 2025-06-11 20:53:30 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

fix building on threaded or multiplicity interpreter perl,

Browse Source 
the bug was introduced by previous commit
This commit is contained in:
Igor Sysoev 2007-06-16 09:22:37 +00:00
parent 2756b42db2
commit b5f30a87c5
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/http/modules/perl/ngx_http_perl_module.c
View File

@ -1008,10 +1008,21 @@ ngx_http_perl_set(ngx_conf_t *cf, ngx_command_t *cmd, void *conf)
static ngx_int_t static ngx_int_t
ngx_http_perl_init_worker(ngx_cycle_t *cycle) 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 $$ */ /* set worker's $$ */
sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32) ngx_pid); sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32) ngx_pid);
}
return NGX_OK; return NGX_OK;
} }