Change 34515 by [EMAIL PROTECTED] on 2008/10/19 10:41:06
Integrate:
[ 34507]
Fix memory leak in // caused by single-char character class
optimization. This was most probably introduced with #28262.
This change fixes perl #59516.
Affected files ...
... //depot/maint-5.10/perl/regcomp.c#17 integrate
Differences ...
==== //depot/maint-5.10/perl/regcomp.c#17 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#16~34465~ 2008-10-06 05:46:54.000000000 -0700
+++ perl/regcomp.c 2008-10-19 03:41:06.000000000 -0700
@@ -8250,6 +8250,9 @@
*STRING(ret)= (char)value;
STR_LEN(ret)= 1;
RExC_emit += STR_SZ(1);
+ if (listsv) {
+ SvREFCNT_dec(listsv);
+ }
return ret;
}
/* optimize case-insensitive simple patterns (e.g. /[a-z]/i) */
End of Patch.
