# HG changeset patch
# User Igor Sysoev <igor@sysoev.ru>
# Date 1205423316 0
# Node ID 6a4c74bea81c9031d1f85d2f1f68a31431c5df19
# Parent  6e7daf852eec01cf4d6577bba272b0bb22d094db
fix building on 64-bit platforms broken in r1900

diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -668,7 +668,7 @@ ngx_http_perl_call_handler(pTHX_ ngx_htt
     XPUSHs(sv);
 
     if (args) {
-        EXTEND(sp, (int) args[0]);
+        EXTEND(sp, (intptr_t) args[0]);
 
         for (i = 1; i <= (ngx_uint_t) args[0]; i++) {
             PUSHs(sv_2mortal(args[i]));