Mercurial > hg > nginx-vendor-current
comparison src/http/modules/perl/ngx_http_perl_module.c @ 370:9a242235a80a NGINX_0_6_29
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 | 984bb0b1399b |
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 } |