X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=45bb40e00fb80980c4d596532544a8dbd7fc51c2;hp=9e6fb61aa3f1609a9df39fae8f9132be496811ec;hb=bfb0c6ae9c2de5768a1c3c9309a8b6c82bb0830b;hpb=02b7cccfd6bf78523a2ab6e10ab3a2aa15da6144

diff --git a/indirect.xs b/indirect.xs
index 9e6fb61..45bb40e 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;
 
@@ -1094,11 +1097,11 @@ static void indirect_setup(pTHX) {
   indirect_ck_replace(OP_LINESEQ, indirect_ck_scope,  &indirect_old_ck_lineseq);
 
   indirect_ck_replace(OP_METHOD,       indirect_ck_method,
-				       &indirect_old_ck_method);
+                                       &indirect_old_ck_method);
   indirect_ck_replace(OP_METHOD_NAMED, indirect_ck_method_named,
-				       &indirect_old_ck_method_named);
+                                       &indirect_old_ck_method_named);
   indirect_ck_replace(OP_ENTERSUB,     indirect_ck_entersub,
-				       &indirect_old_ck_entersub);
+                                       &indirect_old_ck_entersub);
  }
 
  I_LOADED_UNLOCK;