From: Vincent Pit <vince@profvince.com>
Date: Tue, 31 Aug 2010 10:57:18 +0000 (+0200)
Subject: Don't increment the refcount of the STORE callback argument
X-Git-Tag: v0.09~12
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=commitdiff_plain;h=104a143a32639ea18bf648b44b3b7545531c7d39

Don't increment the refcount of the STORE callback argument
---

diff --git a/Plugin.xs b/Plugin.xs
index 9400811..036185f 100644
--- a/Plugin.xs
+++ b/Plugin.xs
@@ -515,7 +515,7 @@ Plugin_numbered_buff_STORE(pTHX_ REGEXP * const RX, const I32 paren,
         PUSHMARK(SP);
         XPUSHs(rx->pprivate);
         XPUSHs(sv_2mortal(newSViv(paren)));
-        XPUSHs(SvREFCNT_inc((SV *) value));
+        XPUSHs((SV *) value);
         PUTBACK;
 
         call_sv(callback, G_DISCARD);