Mercurial > hg > nginx-vendor-0-6

comparison src/http/modules/perl/ngx_http_perl_module.c @ 370:9a242235a80a NGINX_0_6_29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
nginx 0.6.29 *) Feature: the ngx_google_perftools_module. *) Bugfix: the ngx_http_perl_module could be not built on 64-bit platforms; bug appeared in 0.6.27.
author Igor Sysoev <http://sysoev.ru>
date Tue, 18 Mar 2008 00:00:00 +0300
parents babd3d9efb62
children
comparison
equal deleted inserted replaced
369:5906b8639a07 370:9a242235a80a
666 666
667 sv = sv_2mortal(sv_bless(newRV_noinc(newSViv(PTR2IV(r))), nginx)); 667 sv = sv_2mortal(sv_bless(newRV_noinc(newSViv(PTR2IV(r))), nginx));
668 XPUSHs(sv); 668 XPUSHs(sv);
669 669
670 if (args) { 670 if (args) {
671 EXTEND(sp, (int) args[0]); 671 EXTEND(sp, (intptr_t) args[0]);
672 672
673 for (i = 1; i <= (ngx_uint_t) args[0]; i++) { 673 for (i = 1; i <= (ngx_uint_t) args[0]; i++) {
674 PUSHs(sv_2mortal(args[i])); 674 PUSHs(sv_2mortal(args[i]));
675 } 675 }
676 } 676 }
1053 } 1053 }
1054 1054
1055 return NGX_OK; 1055 return NGX_OK;
1056 } 1056 }
1057 1057
1058
1058 static void 1059 static void
1059 ngx_http_perl_exit(ngx_cycle_t *cycle) 1060 ngx_http_perl_exit(ngx_cycle_t *cycle)
1060 { 1061 {
1062 ngx_http_perl_main_conf_t *pmcf;
1063
1064 pmcf = ngx_http_cycle_get_module_main_conf(cycle, ngx_http_perl_module);
1065
1066 {
1067
1068 dTHXa(pmcf->perl);
1069 PERL_SET_CONTEXT(pmcf->perl);
1070
1061 PERL_SYS_TERM(); 1071 PERL_SYS_TERM();
1062 } 1072
1073 }
1074 }