Change 34524 by [EMAIL PROTECTED] on 2008/10/20 12:38:38
Integrate:
[ 34515]
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.8/perl/regcomp.c#121 integrate
Differences ...
==== //depot/maint-5.8/perl/regcomp.c#121 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#120~34467~ 2008-10-06 09:31:35.000000000 -0700
+++ perl/regcomp.c 2008-10-20 05:38:38.000000000 -0700
@@ -4127,6 +4127,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.
