X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=blobdiff_plain;f=Plugin.xs;fp=Plugin.xs;h=da33ce2ff9050a130fe6f6d79d58d8b3b6262814;hp=af917b7d7e1ff5dc07010c033d8a95df5dccc248;hb=908271b6e3cd68ae73cbd007d021af2670ed0558;hpb=5162655c3a86217e485be50e4f5266b7ff713d70

diff --git a/Plugin.xs b/Plugin.xs
index af917b7..da33ce2 100644
--- a/Plugin.xs
+++ b/Plugin.xs
@@ -209,7 +209,6 @@ Plugin_comp(pTHX_ const SV * const pattern, const U32 flags)
 
  /* Our blessed object */
  obj = newSV(0);
- SvREFCNT_inc_simple_void_NN(obj);
  Newxz(re, 1, struct replug);
  sv_setref_pv(obj, XSH_PACKAGE, (void *) re);
 
@@ -378,8 +377,11 @@ Plugin_free(pTHX_ REGEXP * const RX)
  SvREFCNT_dec(self->cb_num_capture_buff_LENGTH);
 
  self->rx = NULL;
+
  Safefree(self);
 
+ SvREFCNT_dec(rx->pprivate);
+
 /*
  dSP;
  SV *callback;