Increment the refcount after cloning

[perl/modules/Lexical-Types.git] / Types.xs

diff --git a/Types.xs b/Types.xs
index 6a159bcdc2775cc517d8c11275237a197a934a0f..b5cd70f7c332d552055bec332042811771237edd 100644 (file)
--- 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_) {