From: Vincent Pit <vince@profvince.com>
Date: Sat, 4 Jul 2009 12:52:25 +0000 (+0200)
Subject: Increment the refcount after cloning
X-Git-Tag: v0.08~2
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=5c6327ad83791c6e2fedd165756005382b14de7e

Increment the refcount after cloning
---

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_) {