Re: [PATCH 5.005_63] utf8 REx botches

[Ilya Zakharevich <ilya@math.ohio-state.edu>]

On Thu, Jan 06, 2000 at 04:33:51PM -0800, Gurusamy Sarathy wrote:
> Thanks.  Did you know op/regexp.t#60 still fails with the patch?
> 
>     % ./perl -I../lib -Mutf8 op/regexp.t
>     [...]
>     ok 59
>     not ok 60 () \ba\b:-a:y:-:- => `-', match=
>     ok 61
>     [...]

Not here.  Did you do make test?

Here is the debugging output:

./perl -Ilib -Mre=debug -wle '"-a" =~ /\ba\b/ or die'
Compiling REx `\ba\b'
size 5 first at 1
   1: BOUND(2)
   2: EXACT <a>(4)
   4: BOUND(5)
   5: END(0)
anchored `a' at 0 (checking anchored) stclass `BOUND' minlen 1
Guessing start of match, REx `\ba\b' against `-a'...
Found anchored substr `a' at offset 1...
Does not contradict STCLASS...
Guessed: match at offset 1
Matching REx `\ba\b' against `a'
  Setting an EVAL scope, savestack=3
   1 <-> <a>              |  1:  BOUND
   1 <-> <a>              |  2:  EXACT <a>
   2 <-a> <>              |  4:  BOUND
   2 <-a> <>              |  5:  END
Match successful!
Freeing REx: `\ba\b'

Ilya

---

Follow-Ups from:

Gurusamy Sarathy <gsar@activestate.com>

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]

---