From: Hugo van der Sanden <hv@crypt.org>
Date: Tue, 1 May 2001 20:12:20 +0000 (+0100)
Subject: Re: bleadperl: s/// failure with \b and /g
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee0b771877836a9ae06a1e11424d772169d82f7d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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	-	-