diff options
| author | Igor Sysoev <igor@sysoev.ru> | 2007-06-16 09:22:37 +0000 |
|---|---|---|
| committer | Igor Sysoev <igor@sysoev.ru> | 2007-06-16 09:22:37 +0000 |
| commit | b5f30a87c5401528f28ea93fe80acf4fd8017478 (patch) | |
| tree | 618e0b9c06977900701413f8b7bc0dd64642bab4 /src/http/modules/perl/ngx_http_perl_module.c | |
| parent | 2756b42db2dac000f1b4fde6d45037426e26f9a5 (diff) | |
| download | nginx-b5f30a87c5401528f28ea93fe80acf4fd8017478.tar.gz nginx-b5f30a87c5401528f28ea93fe80acf4fd8017478.zip | |
fix building on threaded or multiplicity interpreter perl,
the bug was introduced by previous commit
Diffstat (limited to 'src/http/modules/perl/ngx_http_perl_module.c')
| -rw-r--r-- | src/http/modules/perl/ngx_http_perl_module.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c index 6e4c42787..248f57823 100644 --- 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_command_t *cmd, void *conf) 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; } |