X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=blobdiff_plain;f=Upper.xs;h=6ff176d68d913973734a80e8bde1d18b85eec2eb;hp=386bf5abe245f267c9515c0ca39ca2c2f7f10f2f;hb=915ea103e7467eb15f3e5a37c4d4329a2803ea3a;hpb=ae64b29ad6c13002911b394f671bd4af07b3fc89

diff --git a/Upper.xs b/Upper.xs
index 386bf5a..6ff176d 100644
--- 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