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

diff --git a/Types.xs b/Types.xs
index f5e7664..a88ced7 100644
--- a/Types.xs
+++ b/Types.xs
@@ -264,6 +264,7 @@ STATIC void lt_thread_cleanup(pTHX_ void *ud) {
 
  ptable_hints_free(MY_CXT.tbl);
  ptable_seen_free(MY_CXT.seen);
+ SvREFCNT_dec(MY_CXT.default_meth);
 }
 
 STATIC int lt_endav_free(pTHX_ SV *sv, MAGIC *mg) {