Re: bleadperl: s/// failure with \b and /g

Message-Id: <200105011912.UAA06826@crypt.compulink.co.uk>

p4raw-id: //depot/perl@9941

diff --git a/pp_hot.c b/pp_hot.c
index de75f27..bc7a1b9 100644 (file)
--- 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 (file)
--- 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       -       -