diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-05-01 14:35:37 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-01 11:50:36 +0000 |
| commit | 56d400ed3af68f3e129d79065e75af152cabbe59 (patch) | |
| tree | c1ac27438bf282271ecde819f1e74946876f1b27 /regcomp.c | |
| parent | 8a11820602bf2132dec1f28575fd8f008fe20205 (diff) | |
| download | perl-56d400ed3af68f3e129d79065e75af152cabbe59.tar.gz | |
Re: [PATCH] Change meaning of \v, \V, and add \h, \H to match Perl6, add \R to match PCRE and unicode tr18
Message-ID: <9b18b3110705010335w1924941ep3eb925a3ed597604@mail.gmail.com>
p4raw-id: //depot/perl@31111
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -6575,9 +6575,9 @@ tryagain: case 0xDF: case 0xC3: case 0xCE: - if (FOLD) { + if (!LOC && FOLD) { U32 len,cp; - if (cp = what_len_TRICKYFOLD_safe(RExC_parse,RExC_end,UTF,len)) { + if ((cp = what_len_TRICKYFOLD_safe(RExC_parse,RExC_end,UTF,len))) { *flagp |= HASWIDTH; /* could be SIMPLE too, but needs a handler in regexec.regrepeat */ RExC_parse+=len-1; /* we get one from nextchar() as well. :-( */ ret = reganode(pRExC_state, FOLDCHAR, cp); @@ -6887,7 +6887,7 @@ tryagain: case 0xDF: case 0xC3: case 0xCE: - if (!FOLD || !is_TRICKYFOLD_safe(p,RExC_end,UTF)) + if (LOC || !FOLD || !is_TRICKYFOLD_safe(p,RExC_end,UTF)) goto normal_default; case '^': case '$': |