X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=5cd420cb31f7897649bde1324dec1ea1d98706c6;hp=db563796e6ce7681e03aabfafd9bd516c66c4cdd;hb=2cba38dec0a1ccaeb6ff4119ee2af3ae634e739c;hpb=640ff2586796fa381d8441b87aa635c5fb2a3170

diff --git a/indirect.xs b/indirect.xs
index db56379..5cd420c 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -327,8 +327,11 @@ STATIC void indirect_thread_cleanup(pTHX_ void *ud) {
  dMY_CXT;
 
  SvREFCNT_dec(MY_CXT.global_code);
+ MY_CXT.global_code = NULL;
  ptable_free(MY_CXT.map);
+ MY_CXT.map = NULL;
  ptable_hints_free(MY_CXT.tbl);
+ MY_CXT.tbl = NULL;
 }
 
 STATIC int indirect_endav_free(pTHX_ SV *sv, MAGIC *mg) {
@@ -930,8 +933,10 @@ STATIC void indirect_teardown(pTHX_ void *root) {
  {
   dMY_CXT;
   ptable_free(MY_CXT.map);
+  MY_CXT.map = NULL;
 #if I_THREADSAFE
   ptable_hints_free(MY_CXT.tbl);
+  MY_CXT.tbl = NULL;
 #endif
  }