diff options
author | Father Chrysostomos <sprout@cpan.org> | 2016-08-12 08:43:39 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2016-08-12 08:43:39 -0700 |
commit | bdb0ae96bbbe0efcef6147fd6497bd49971334ed (patch) | |
tree | 22306fb9302e23c38d78cc6f4aac5c7395852a7b | |
parent | ee33cc1af47fcf535fa762422a110c2782c45935 (diff) | |
download | perl-bdb0ae96bbbe0efcef6147fd6497bd49971334ed.tar.gz |
scope.c: Appease C++
C++ is dumb.
-rw-r--r-- | scope.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -1116,8 +1116,10 @@ Perl_leave_scope(pTHX_ I32 base) case SAVEt_CLEARPADRANGE: { - I32 i = (I32)((uv >> SAVE_TIGHT_SHIFT) & OPpPADRANGE_COUNTMASK); - SV **svp = &PL_curpad[uv >> + I32 i; + SV **svp; + i = (I32)((uv >> SAVE_TIGHT_SHIFT) & OPpPADRANGE_COUNTMASK); + svp = &PL_curpad[uv >> (OPpPADRANGE_COUNTSHIFT + SAVE_TIGHT_SHIFT)] + i - 1; goto clearsv; case SAVEt_CLEARSV: |