Mercurial > hg > nginx

comparison src/http/modules/perl/ngx_http_perl_module.c @ 1940:6a4c74bea81c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix building on 64-bit platforms broken in r1900
author Igor Sysoev <igor@sysoev.ru>
date Thu, 13 Mar 2008 15:48:36 +0000
parents d24ef26f1205
children 0e7deac300f1
comparison
equal deleted inserted replaced
1939:6e7daf852eec 1940:6a4c74bea81c
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 }