From: Vincent Pit <vince@profvince.com>
Date: Wed, 24 Jun 2015 13:10:17 +0000 (-0300)
Subject: Silence a 'shadowing' warning
X-Git-Tag: rt104751~10
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=a69e2ff8b8bb97531b54219457343025cbde5c96

Silence a 'shadowing' warning
---

diff --git a/Upper.xs b/Upper.xs
index 2e2c2a5..c23b6c0 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1220,12 +1220,12 @@ static void su_yield(pTHX_ void *ud_) {
 #if SU_HAS_PERL(5, 10, 0)
    if (cxix > 0) {
     PERL_CONTEXT *prev = cx - 1;
-    U8 type = CxTYPE(prev);
-    if ((type == CXt_GIVEN || type == CXt_WHEN)
+    U8       prev_type = CxTYPE(prev);
+    if ((prev_type == CXt_GIVEN || prev_type == CXt_WHEN)
         && (prev->blk_oldcop == cx->blk_oldcop)) {
      cxix--;
      cx = prev;
-     if (type == CXt_GIVEN)
+     if (prev_type == CXt_GIVEN)
       goto cxt_given;
      else
       goto cxt_when;