Change 32913 by [EMAIL PROTECTED] on 2008/01/09 11:40:12
Change 32899 missed the other double-reference count.
Affected files ...
... //depot/perl/regexec.c#566 edit
Differences ...
==== //depot/perl/regexec.c#566 (text) ====
Index: perl/regexec.c
--- perl/regexec.c#565~32899~ 2008-01-08 08:42:31.000000000 -0800
+++ perl/regexec.c 2008-01-09 03:40:12.000000000 -0800
@@ -2259,7 +2259,7 @@
/* so we know which PL_regex_padav element is PL_reg_curpm
when clearing up in perl_destruct() */
SvFLAGS(repointer) |= SVf_BREAK;
- av_push(PL_regex_padav,SvREFCNT_inc_simple_NN(repointer));
+ av_push(PL_regex_padav, repointer);
PL_reg_curpm->op_pmoffset = av_len(PL_regex_padav);
PL_regex_pad = AvARRAY(PL_regex_padav);
}
End of Patch.
