]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/commitdiff
Don't increment the refcount of the STORE callback argument
authorVincent Pit <vince@profvince.com>
Tue, 31 Aug 2010 10:57:18 +0000 (12:57 +0200)
committerVincent Pit <vince@profvince.com>
Fri, 4 Feb 2011 20:53:45 +0000 (21:53 +0100)
Plugin.xs

index 940081114ee96d26671b7abc6e378c0265b23882..036185f6faa97917ceb3660a746422aa0425a901 100644 (file)
--- 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);