[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

Re: [PATCH 5.005_63] utf8 REx botches



On Thu, Jan 06, 2000 at 04:33:51PM -0800, Gurusamy Sarathy wrote:
> On Thu, 06 Jan 2000 17:30:18 EST, Ilya Zakharevich wrote:
> >Gurusamy Sarathy writes:
> >> I'm hotly pursuing the utf8 trail right now, and expect to have v5.5.640
> >> out some time this weekend.
> >
> >This fixes all UTEST failures but complex.t one (I think this one is not
> >related to RExen).
> 
> Thanks.  Did you know op/regexp.t#60 still fails with the patch?

Recompiling with -U usemymalloc gives same behaviour here.

--- ./regexec.c-pre1	Fri Jan  7 16:47:13 2000
+++ ./regexec.c	Fri Jan  7 17:01:12 2000
@@ -690,8 +690,10 @@ Perl_re_intuit_start(pTHX_ regexp *prog,
 	char *startpos = sv ? strend - SvCUR(sv) : s;
 
 	t = s;
-	if (prog->reganch & ROPT_UTF8)
+	if (prog->reganch & ROPT_UTF8) {	
 	    PL_regdata = prog->data;	/* Used by REGINCLASS UTF logic */
+	    PL_bostr = startpos;
+	}
         s = find_byclass(prog, prog->regstclass, s, endpos, startpos, 1);
 	if (!s) {
 #ifdef DEBUGGING

Enjoy,
Ilya


References to:
Ilya Zakharevich <ilya@math.ohio-state.edu>
Gurusamy Sarathy <gsar@activestate.com>

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]