]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Manually release MY_CXT.global_code at interpreter teardown time
authorVincent Pit <vince@profvince.com>
Mon, 6 Apr 2015 19:57:53 +0000 (16:57 -0300)
committerVincent Pit <vince@profvince.com>
Mon, 6 Apr 2015 19:57:53 +0000 (16:57 -0300)
indirect.xs

index 9e6fb61aa3f1609a9df39fae8f9132be496811ec..ba0543dae7e778c864bac2a9543479f2a2317e53 100644 (file)
@@ -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;