X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=beec19f7c470035e994c7d746297862b6d539d4a;hp=dbcaad15c77d6250114a613c3151a3318375d2ba;hb=838f008dcda56897a619afdd99f450fb62672a15;hpb=927b72cf6262313dcb7b292dc925790d4b6ddd03

diff --git a/indirect.xs b/indirect.xs
index dbcaad1..beec19f 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -253,7 +253,6 @@ STATIC void indirect_ptable_clone(pTHX_ ptable_ent *ent, void *ud_) {
 
  h2       = PerlMemShared_malloc(sizeof *h2);
  h2->code = indirect_clone(h1->code, ud->owner);
- SvREFCNT_inc(h2->code);
 #if I_WORKAROUND_REQUIRE_PROPAGATION
  h2->require_tag = PTR2IV(indirect_clone(INT2PTR(SV *, h1->require_tag),
                                          ud->owner));
@@ -262,7 +261,6 @@ STATIC void indirect_ptable_clone(pTHX_ ptable_ent *ent, void *ud_) {
 #else  /*  I_HINT_STRUCT */
 
  h2 = indirect_clone(h1, ud->owner);
- SvREFCNT_inc(h2);
 
 #endif /* !I_HINT_STRUCT */