diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-06 18:24:33 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-08 05:12:07 +0000 |
| commit | 569536030df0016c037f85e8e6d3ef93f000c47a (patch) | |
| tree | d1c55b55d87930cbe99c41c1b950ab017ba1eaff /pp_hot.c | |
| parent | 735e0d5c42c27ff4648bbbb6a960bc17c7a17596 (diff) | |
| download | perl-569536030df0016c037f85e8e6d3ef93f000c47a.tar.gz | |
add patch for C<use re 'debug'>
Message-Id: <199807070224.WAA10318@monk.mps.ohio-state.edu>
Subject: Re: _70 and Devel::RE
p4raw-id: //depot/perl@1371
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -905,7 +905,7 @@ play_it_again: rx->float_substr = Nullsv; } } - if (regexec_flags(rx, s, strend, truebase, minmatch, + if ((*regexecp)(rx, s, strend, truebase, minmatch, screamer, NULL, safebase)) { curpm = pm; @@ -1624,7 +1624,7 @@ PP(pp_subst) /* can do inplace substitution? */ if (c && clen <= rx->minlen && (once || !(safebase & REXEC_COPY_STR)) && !(rx->reganch & ROPT_LOOKBEHIND_SEEN)) { - if (!regexec_flags(rx, s, strend, orig, 0, screamer, NULL, safebase)) { + if (!(*regexecp)(rx, s, strend, orig, 0, screamer, NULL, safebase)) { SPAGAIN; PUSHs(&sv_no); LEAVE_SCOPE(oldsave); @@ -1701,7 +1701,7 @@ PP(pp_subst) d += clen; } s = rx->endp[0]; - } while (regexec_flags(rx, s, strend, orig, s == m, + } while ((*regexecp)(rx, s, strend, orig, s == m, Nullsv, NULL, 0)); /* don't match same null twice */ if (s != d) { i = strend - s; @@ -1724,7 +1724,7 @@ PP(pp_subst) RETURN; } - if (regexec_flags(rx, s, strend, orig, 0, screamer, NULL, safebase)) { + if ((*regexecp)(rx, s, strend, orig, 0, screamer, NULL, safebase)) { if (force_on_match) { force_on_match = 0; s = SvPV_force(TARG, len); @@ -1758,7 +1758,7 @@ PP(pp_subst) sv_catpvn(dstr, c, clen); if (once) break; - } while (regexec_flags(rx, s, strend, orig, s == m, Nullsv, NULL, safebase)); + } while ((*regexecp)(rx, s, strend, orig, s == m, Nullsv, NULL, safebase)); sv_catpvn(dstr, s, strend - s); (void)SvOOK_off(TARG); |