Require perl 5.8.1

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index f0c42ef1044b3917779688b3e89b9b4877d53729..ee45f235dd4e7d3dfd3916bbd53254b047d85105 100644 (file)
--- a/indirect.xs
+++ b/indirect.xs
@@ -840,13 +840,15 @@ STATIC void indirect_setup(pTHX) {
  if (indirect_initialized)
   return;
 
- MY_CXT_INIT;
+ {
+  MY_CXT_INIT;
 #if I_THREADSAFE
- MY_CXT.tbl     = ptable_new();
- MY_CXT.owner   = aTHX;
+  MY_CXT.tbl     = ptable_new();
+  MY_CXT.owner   = aTHX;
 #endif
- MY_CXT.map     = ptable_new();
- MY_CXT.linestr = NULL;
+  MY_CXT.map     = ptable_new();
+  MY_CXT.linestr = NULL;
+ }
 
  indirect_old_ck_const    = PL_check[OP_CONST];
  PL_check[OP_CONST]       = MEMBER_TO_FPTR(indirect_ck_const);
@@ -904,7 +906,7 @@ PROTOTYPE: DISABLE
 PREINIT:
  ptable *t;
  int    *level;
-CODE:
+PPCODE:
  {
   my_cxt_t ud;
   dMY_CXT;
@@ -926,6 +928,7 @@ CODE:
   SAVEDESTRUCTOR_X(indirect_thread_cleanup, level);
   ENTERn("sub");
  }
+ XSRETURN(0);
 
 #endif