]> git.vpit.fr Git - perl/modules/Lexical-Types.git/commitdiff
Do not mix declarations and code
authorVincent Pit <vince@profvince.com>
Sat, 2 Jan 2010 23:35:01 +0000 (00:35 +0100)
committerVincent Pit <vince@profvince.com>
Sat, 2 Jan 2010 23:35:01 +0000 (00:35 +0100)
Types.xs

index 2483f3593e84145a9bab24529d023bf3e38e01a0..38aa872b263305d709cea251d118b96639f4bfa8 100644 (file)
--- 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);