X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regexec.c;h=4692dcdf0492f14f76f619cd1fdbe1e0599a7a41;hb=9ac5eb64d274bdbd879ebb568a13f392d2a50575;hp=ebe7883b6091d1ee5533814aecd11ee102b63402;hpb=faf82a0b75a45f1e4dbb7ad8cecdfaf9a30a643d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regexec.c b/regexec.c
index ebe7883..4692dcd 100644
--- a/regexec.c
+++ b/regexec.c
@@ -67,7 +67,7 @@
  *
  ****    Alterations to Henry's code are...
  ****
- ****    Copyright (c) 1991-2002, Larry Wall
+ ****    Copyright (c) 1991-2003, Larry Wall
  ****
  ****    You may distribute under the terms of either the GNU General Public
  ****    License or the Artistic License, as specified in the README file.
@@ -852,10 +852,6 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
 	char *startpos = strbeg;
 
 	t = s;
-	if (prog->reganch & ROPT_UTF8) {	
-	    PL_regdata = prog->data;
-	    PL_bostr = startpos;
-	}
 	cache_re(prog);
 	s = find_byclass(prog, prog->regstclass, s, endpos, startpos, 1);
 	if (!s) {