Mercurial > hg > nginx

comparison src/http/modules/perl/ngx_http_perl_module.c @ 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 e958b3cab51a
comparison
equal deleted inserted replaced
1257:927b06411194 1258:5076d97b9cf0
1006 1006
1007 1007
1008 static ngx_int_t 1008 static ngx_int_t
1009 ngx_http_perl_init_worker(ngx_cycle_t *cycle) 1009 ngx_http_perl_init_worker(ngx_cycle_t *cycle)
1010 { 1010 {
1011 ngx_http_perl_main_conf_t *pmcf;
1012
1013 pmcf = ngx_http_cycle_get_module_main_conf(cycle, ngx_http_perl_module);
1014
1015 {
1016
1017 dTHXa(pmcf->perl);
1018 PERL_SET_CONTEXT(pmcf->perl);
1019
1011 /* set worker's $$ */ 1020 /* set worker's $$ */
1012 1021
1013 sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32) ngx_pid); 1022 sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32) ngx_pid);
1023
1024 }
1014 1025
1015 return NGX_OK; 1026 return NGX_OK;
1016 } 1027 }
1017 1028
1018 static void 1029 static void