X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Types.xs;h=38aa872b263305d709cea251d118b96639f4bfa8;hb=bfadc70125996f2170d3fac55d5171240724687f;hp=2483f3593e84145a9bab24529d023bf3e38e01a0;hpb=73299b2cf56db0ad019b926ca89534254cf4e799;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/Types.xs b/Types.xs
index 2483f35..38aa872 100644
--- a/Types.xs
+++ b/Types.xs
@@ -674,14 +674,16 @@ STATIC void lt_setup(pTHX) {
  if (lt_initialized)
   return;
 
- MY_CXT_INIT;
+ {
+  MY_CXT_INIT;
 #if LT_THREADSAFE
- MY_CXT.tbl            = ptable_new();
- MY_CXT.owner          = aTHX;
+  MY_CXT.tbl            = ptable_new();
+  MY_CXT.owner          = aTHX;
 #endif
- MY_CXT.pp_padsv_saved = 0;
- MY_CXT.default_meth   = newSVpvn("TYPEDSCALAR", 11);
- SvREADONLY_on(MY_CXT.default_meth);
+  MY_CXT.pp_padsv_saved = 0;
+  MY_CXT.default_meth   = newSVpvn("TYPEDSCALAR", 11);
+  SvREADONLY_on(MY_CXT.default_meth);
+ }
 
  lt_old_ck_padany    = PL_check[OP_PADANY];
  PL_check[OP_PADANY] = MEMBER_TO_FPTR(lt_ck_padany);