Don't increment the refcount of the STORE callback argument

[perl/modules/re-engine-Plugin.git] / Plugin.xs

diff --git a/Plugin.xs b/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);