diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-05-01 21:12:20 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-01 19:47:24 +0000 |
| commit | ee0b771877836a9ae06a1e11424d772169d82f7d (patch) | |
| tree | a8cb0ed59708d2a44435f2e31596097501dbcfea /pp_hot.c | |
| parent | dc37b422a89e5d27061682a275899d1b34884ce7 (diff) | |
| download | perl-ee0b771877836a9ae06a1e11424d772169d82f7d.tar.gz | |
Re: bleadperl: s/// failure with \b and /g
Message-Id: <200105011912.UAA06826@crypt.compulink.co.uk>
p4raw-id: //depot/perl@9941
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1276,6 +1276,7 @@ play_it_again: } if (rx->reganch & RE_USE_INTUIT && DO_UTF8(TARG) == ((rx->reganch & ROPT_UTF8) != 0)) { + PL_bostr = truebase; s = CALLREG_INTUIT_START(aTHX_ rx, TARG, s, strend, r_flags, NULL); if (!s) @@ -1918,6 +1919,7 @@ PP(pp_subst) } orig = m = s; if (rx->reganch & RE_USE_INTUIT) { + PL_bostr = orig; s = CALLREG_INTUIT_START(aTHX_ rx, TARG, s, strend, r_flags, NULL); if (!s) |