From: Vincent Pit <vince@profvince.com>
Date: Sat, 2 Jan 2010 23:35:01 +0000 (+0100)
Subject: Do not mix declarations and code
X-Git-Tag: v0.09~3
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=bfadc70125996f2170d3fac55d5171240724687f

Do not mix declarations and code
---

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);