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

[perl/modules/Lexical-Types.git] / Types.xs

diff --git a/Types.xs b/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) {