]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/commitdiff
projects / perl / modules / re-engine-Plugin.git / commitdiff
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side (parent: 86028c4)
Stop leaking the stash
authorVincent Pit <perl@profvince.com>
Wed, 4 Nov 2015 18:00:01 +0000 (16:00 -0200)
committerVincent Pit <perl@profvince.com>
Wed, 4 Nov 2015 23:57:56 +0000 (21:57 -0200)
Plugin.xs patch | blob | history

diff --git a/Plugin.xs b/Plugin.xs
index 90e63fc8349d8fde716b40d0059459396564cfb8..af917b7d7e1ff5dc07010c033d8a95df5dccc248 100644 (file)
--- a/Plugin.xs
+++ b/Plugin.xs
@@ -369,6 +369,7 @@ Plugin_free(pTHX_ REGEXP * const RX)
 
  SvREFCNT_dec(self->pattern);
  SvREFCNT_dec(self->str);
+ SvREFCNT_dec(self->stash);
 
  SvREFCNT_dec(self->cb_exec);
 
A Perl API to write custom regex engines.