diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-06-21 00:01:22 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 13:12:54 +0000 |
| commit | aaa362c4c9a4b61a85f6a240dc8826e53958f6da (patch) | |
| tree | 07d118556847421b720394f89d0c87824892ffac /pp_hot.c | |
| parent | 4c8a4e58b37238aa7f23df050ac909444f7e45a6 (diff) | |
| download | perl-aaa362c4c9a4b61a85f6a240dc8826e53958f6da.tar.gz | |
Step 2: Use the new PM_GETRE/SETRE macros everywhere.
Message-ID: <Pine.LNX.4.21.0106210657400.1693-100000@oregonnet.com>
p4raw-id: //depot/perl@10780
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1190,7 +1190,7 @@ PP(pp_qr) register PMOP *pm = cPMOP; SV *rv = sv_newmortal(); SV *sv = newSVrv(rv, "Regexp"); - sv_magic(sv,(SV*)ReREFCNT_inc(pm->op_pmregexp), PERL_MAGIC_qr,0,0); + sv_magic(sv,(SV*)ReREFCNT_inc(PM_GETRE(pm)), PERL_MAGIC_qr,0,0); RETURNX(PUSHs(rv)); } @@ -1204,7 +1204,7 @@ PP(pp_match) I32 global; I32 r_flags = REXEC_CHECKED; char *truebase; /* Start of string */ - register REGEXP *rx = pm->op_pmregexp; + register REGEXP *rx = PM_GETRE(pm); bool rxtainted; I32 gimme = GIMME; STRLEN len; @@ -1238,7 +1238,7 @@ PP(pp_match) if (!rx->prelen && PL_curpm) { pm = PL_curpm; - rx = pm->op_pmregexp; + rx = PM_GETRE(pm); } if (rx->minlen > len) goto failure; @@ -1875,7 +1875,7 @@ PP(pp_subst) bool rxtainted; char *orig; I32 r_flags; - register REGEXP *rx = pm->op_pmregexp; + register REGEXP *rx = PM_GETRE(pm); STRLEN len; int force_on_match = 0; I32 oldsave = PL_savestack_ix; @@ -1921,7 +1921,7 @@ PP(pp_subst) if (!rx->prelen && PL_curpm) { pm = PL_curpm; - rx = pm->op_pmregexp; + rx = PM_GETRE(pm); } r_flags = (rx->nparens || SvTEMP(TARG) || PL_sawampersand) ? REXEC_COPY_STR : 0; |