scope.c: Appease C++
authorFather Chrysostomos <sprout@cpan.org>
Fri, 12 Aug 2016 15:43:39 +0000 (08:43 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 12 Aug 2016 15:43:39 +0000 (08:43 -0700)
C++ is dumb.

scope.c

diff --git a/scope.c b/scope.c
index d78857b..ff84e64 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -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: