From ee0b771877836a9ae06a1e11424d772169d82f7d Mon Sep 17 00:00:00 2001 From: Hugo van der Sanden Date: Tue, 1 May 2001 21:12:20 +0100 Subject: [PATCH] Re: bleadperl: s/// failure with \b and /g Message-Id: <200105011912.UAA06826@crypt.compulink.co.uk> p4raw-id: //depot/perl@9941 --- pp_hot.c | 2 ++ t/op/re_tests | 1 + 2 files changed, 3 insertions(+) diff --git a/pp_hot.c b/pp_hot.c index de75f27..bc7a1b9 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -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) diff --git a/t/op/re_tests b/t/op/re_tests index 3989c06..806760f 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -788,3 +788,4 @@ tt+$ xxxtt y - - (ab)?(ab)+ ab y $1:$2 :ab - (abc)?(abc)+ abc y $1:$2 :abc - 'b\s^'m a\nb\n n - - +\ba a y - - -- 2.7.4