You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2011/03/14 05:09:02 UTC
[lucy-commits] svn commit: r1081258 -
/incubator/lucy/trunk/perl/xs/Lucy/Analysis/Tokenizer.c
Author: marvin
Date: Mon Mar 14 04:09:02 2011
New Revision: 1081258
URL: http://svn.apache.org/viewvc?rev=1081258&view=rev
Log:
Fix a refcount leak leading to a memory leak of a qr// scalar.
Modified:
incubator/lucy/trunk/perl/xs/Lucy/Analysis/Tokenizer.c
Modified: incubator/lucy/trunk/perl/xs/Lucy/Analysis/Tokenizer.c
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/xs/Lucy/Analysis/Tokenizer.c?rev=1081258&r1=1081257&r2=1081258&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/xs/Lucy/Analysis/Tokenizer.c (original)
+++ incubator/lucy/trunk/perl/xs/Lucy/Analysis/Tokenizer.c Mon Mar 14 04:09:02 2011
@@ -57,6 +57,7 @@ lucy_RegexTokenizer_init(lucy_RegexToken
token_re_sv = (SV*)lucy_Host_callback_host(LUCY_REGEXTOKENIZER,
"compile_token_re", 1, CFISH_ARG_STR("pattern", self->pattern));
S_set_token_re_but_not_pattern(self, SvRV(token_re_sv));
+ SvREFCNT_dec(token_re_sv);
return self;
}