X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=Types.xs;h=752e3f43d27aab4f5b1de8a8c59d1e70ab91f220;hp=a88ced75d9ce2ab1d500de72abbdde2f75d5becf;hb=b99a3bce46a7a325bfe18ce349df5cd80bdbc78f;hpb=8c276d026bc081c19cd4ac80face8ae549c53e16

diff --git a/Types.xs b/Types.xs
index a88ced7..752e3f4 100644
--- a/Types.xs
+++ b/Types.xs
@@ -263,8 +263,11 @@ STATIC void lt_thread_cleanup(pTHX_ void *ud) {
  dMY_CXT;
 
  ptable_hints_free(MY_CXT.tbl);
+ MY_CXT.tbl          = NULL;
  ptable_seen_free(MY_CXT.seen);
+ MY_CXT.seen         = NULL;
  SvREFCNT_dec(MY_CXT.default_meth);
+ MY_CXT.default_meth = NULL;
 }
 
 STATIC int lt_endav_free(pTHX_ SV *sv, MAGIC *mg) {
@@ -934,9 +937,12 @@ STATIC void lt_teardown(pTHX_ void *root) {
   dMY_CXT;
 #if LT_THREADSAFE
   ptable_hints_free(MY_CXT.tbl);
+  MY_CXT.tbl          = NULL;
 #endif
   ptable_seen_free(MY_CXT.seen);
+  MY_CXT.seen         = NULL;
   SvREFCNT_dec(MY_CXT.default_meth);
+  MY_CXT.default_meth = NULL;
  }
 
  lt_ck_restore(OP_PADANY, &lt_old_ck_padany);