From: Vincent Pit <vince@profvince.com>
Date: Sat, 4 Oct 2014 22:39:00 +0000 (+0200)
Subject: Properly decrement the refcount of the default method name at thread end
X-Git-Tag: v0.13~7
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=8c276d026bc081c19cd4ac80face8ae549c53e16

Properly decrement the refcount of the default method name at thread end
---

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) {