diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-01-09 11:40:12 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-01-09 11:40:12 +0000 |
commit | d2ece331daee8e28f4c669904c9cfa6dee30dd74 (patch) | |
tree | 7f064d79211e3de337c33b0ea9ecde602650818f /regexec.c | |
parent | d0328fd7d629f8429b08eacaee4fd3cb902fdf5e (diff) | |
download | perl-d2ece331daee8e28f4c669904c9cfa6dee30dd74.tar.gz |
Change 32899 missed the other double-reference count.
p4raw-id: //depot/perl@32913
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2259,7 +2259,7 @@ S_regtry(pTHX_ regmatch_info *reginfo, char **startpos) /* 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); } |