X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Types.xs;h=b5cd70f7c332d552055bec332042811771237edd;hb=5c6327ad83791c6e2fedd165756005382b14de7e;hp=6a159bcdc2775cc517d8c11275237a197a934a0f;hpb=13cce8f3cc2308bfa9839cd83994974fe92ed837;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/Types.xs b/Types.xs
index 6a159bc..b5cd70f 100644
--- a/Types.xs
+++ b/Types.xs
@@ -153,7 +153,7 @@ STATIC SV *lt_clone(pTHX_ SV *sv, tTHX owner) {
   SvREFCNT_dec(stashes);
  }
 
- return dupsv;
+ return SvREFCNT_inc(dupsv);
 }
 
 STATIC void lt_ptable_hints_clone(pTHX_ ptable_ent *ent, void *ud_) {