From: Vincent Pit Date: Mon, 6 Apr 2015 19:57:53 +0000 (-0300) Subject: Manually release MY_CXT.global_code at interpreter teardown time X-Git-Tag: v0.35~2 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f005f899e4ca83b205bf4cfb37e5d7c56b5d2b4b;p=perl%2Fmodules%2Findirect.git Manually release MY_CXT.global_code at interpreter teardown time --- diff --git a/indirect.xs b/indirect.xs index 9e6fb61..ba0543d 100644 --- a/indirect.xs +++ b/indirect.xs @@ -1067,6 +1067,9 @@ static void indirect_teardown(pTHX_ void *interp) { I_LOADED_UNLOCK; + SvREFCNT_dec(MY_CXT.global_code); + MY_CXT.global_code = NULL; + ptable_free(MY_CXT.map); MY_CXT.map = NULL;