diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-09-06 12:35:56 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-09-06 23:25:50 -0700 |
commit | de935cc90faecfae2bc1afad24f1b5315a7787a0 (patch) | |
tree | 5ec1ecc928c47d5fe0523e9448c5ae2100eae9e1 /pp_ctl.c | |
parent | 8c9d3376fbfa04ec0e0e2164dcf7d9e824cf0e94 (diff) | |
download | perl-de935cc90faecfae2bc1afad24f1b5315a7787a0.tar.gz |
Allow 64-bit array and stack offsets in entersub & goto
I don’t have enough memory to test this, but it needs to be done even-
tually anyway.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2909,7 +2909,7 @@ PP(pp_goto) /* also pp_dump */ mark = SP; SP += items; if (items && AvREAL(arg)) { - I32 index; + SSize_t index; for (index=0; index<items; index++) if (SP[-index]) SvREFCNT_inc_void_NN(sv_2mortal(SP[-index])); |