Remove a couple of unused variable

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index 386bf5abe245f267c9515c0ca39ca2c2f7f10f2f..f1a3e2491b8a13ff1dd59bc49ce625a695c3831e 100644 (file)
--- a/Upper.xs
+++ b/Upper.xs
@@ -911,10 +911,13 @@ static void su_localize(pTHX_ void *ud_) {
 #ifdef gv_fetchsv
   gv = gv_fetchsv(sv, GV_ADDMULTI, t);
 #else
-  STRLEN len;
-  const char *name = SvPV_const(sv, len);
-  gv = gv_fetchpvn_flags(name, len, GV_ADDMULTI, t);
+  {
+   STRLEN len;
+   const char *name = SvPV_const(sv, len);
+   gv = gv_fetchpvn_flags(name, len, GV_ADDMULTI, t);
+  }
 #endif
+
 #if SU_HAS_NEW_CXT
   CX_CUR()->blk_oldcop = old_cop;
 #endif
@@ -1086,7 +1089,6 @@ static void su_pop(pTHX_ void *ud);
 
 static void su_ss_push_destructor(pTHX_ void *ud, I32 depth, bool first) {
  su_ud_origin_elem *origin = SU_UD_ORIGIN(ud);
- I32 pad;
 
  assert(first || origin[depth+1].orig_ix == PL_savestack_ix);
  su_ss_push_padding(aTHX_ ud,
@@ -1163,7 +1165,7 @@ static void su_pop(pTHX_ void *ud) {
 
 static void su_init(pTHX_ void *ud, I32 cxix, I32 size) {
 #define su_init(U, C, S) su_init(aTHX_ (U), (C), (S))
- I32 i, depth, base;
+ I32 i, depth;
  su_ud_origin_elem *origin;
  I32 cur_cx_ix;
  I32 cur_scope_ix;