]> git.vpit.fr Git - perl/modules/Lexical-Types.git/commitdiff
Properly decrement the refcount of the default method name at thread end
authorVincent Pit <vince@profvince.com>
Sat, 4 Oct 2014 22:39:00 +0000 (00:39 +0200)
committerVincent Pit <vince@profvince.com>
Sat, 4 Oct 2014 22:39:00 +0000 (00:39 +0200)
Types.xs

index f5e7664ea546d2dfaa178817ce09d2a3389bc398..a88ced75d9ce2ab1d500de72abbdde2f75d5becf 100644 (file)
--- 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) {