Mercurial > hg > nginx

changeset 1258:5076d97b9cf0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 05b5236c2ff5
files src/http/modules/perl/ngx_http_perl_module.c
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -1008,10 +1008,21 @@ ngx_http_perl_set(ngx_conf_t *cf, ngx_co
 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;
 }