diff options
| author | Robin Barker <RMBarker@cpan.org> | 2008-01-07 14:10:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-09 16:32:55 +0000 |
| commit | e3dd4663a7a9c4d106a591d5b1511f7c9d1bfa1e (patch) | |
| tree | db8bc4cf72aba2f084e0df5a14ef71a0c903a314 /pp_ctl.c | |
| parent | 77abb4c6071dd96d341a4a949cb8d41da13b96fd (diff) | |
| download | perl-e3dd4663a7a9c4d106a591d5b1511f7c9d1bfa1e.tar.gz | |
RE: compile warnings w/ PM_SETRE and ReREFCNT_inc
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D0939AE@exchsvr2.npl.ad.local>
p4raw-id: //depot/perl@32920
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -212,7 +212,8 @@ PP(pp_substcont) if(old != rx) { if(old) ReREFCNT_dec(old); - PM_SETRE(pm,ReREFCNT_inc(rx)); + ReREFCNT_inc(rx); + PM_SETRE(pm,rx); } rxres_restore(&cx->sb_rxres, rx); @@ -309,7 +310,7 @@ PP(pp_substcont) mg->mg_len = i; } if (old != rx) - (void)ReREFCNT_inc(rx); + ReREFCNT_inc(rx); cx->sb_rxtainted |= RX_MATCH_TAINTED(rx); rxres_save(&cx->sb_rxres, rx); RETURNOP(pm->op_pmstashstartu.op_pmreplstart); @@ -3828,7 +3829,8 @@ S_make_matcher(pTHX_ REGEXP *re) { dVAR; PMOP *matcher = (PMOP *) newPMOP(OP_MATCH, OPf_WANT_SCALAR | OPf_STACKED); - PM_SETRE(matcher, ReREFCNT_inc(re)); + ReREFCNT_inc(re); + PM_SETRE(matcher, re); SAVEFREEOP((OP *) matcher); ENTER; SAVETMPS; |