diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-19 10:11:58 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-19 11:47:41 -0700 |
| commit | e074b0e508bc39eeecd7253e65329aeb4df5c5ee (patch) | |
| tree | 729f4d395db61a401e8aeb9f46dd52385521ced5 /regcomp.c | |
| parent | 679d1424471caed24305e9b98370c4c456020fd2 (diff) | |
| download | perl-e074b0e508bc39eeecd7253e65329aeb4df5c5ee.tar.gz | |
regcomp.c: no sharp ss tricky fold under locale
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -7727,11 +7727,13 @@ S_reg_namedseq(pTHX_ RExC_state_t *pRExC_state, UV *valuep, I32 *flagp) vFAIL("Invalid hexadecimal number in \\N{U+...}"); } + /* XXX ? Change to ANYOF node if (FOLD - && (cp > 255 || ! MORE_ASCII_RESTRICTED) + && (cp > 255 || (! MORE_ASCII_RESTRICTED && ! LOC)) && is_TRICKYFOLD_cp(cp)) { } + */ /* Under /aa, we can't mix ASCII with non- in a fold. If we are * folding, and the source isn't ASCII, look through all the @@ -8684,7 +8686,7 @@ tryagain: * putting it in a special node keeps regexec from having to * deal with a non-utf8 multi-char fold */ if (FOLD - && (ender > 255 || ! MORE_ASCII_RESTRICTED) + && (ender > 255 || (! MORE_ASCII_RESTRICTED && ! LOC)) && is_TRICKYFOLD_cp(ender)) { /* If is in middle of outputting characters into an |