diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-07-23 10:01:29 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-09-24 11:36:12 -0600 |
| commit | 892d82595257ad4946d399f004a293a79f6ab611 (patch) | |
| tree | 4e8841914093e2fb1200685aff68a7495c2c20a8 /regcomp.c | |
| parent | ecfdcf399ee052379b6d0552e332d8503d554233 (diff) | |
| download | perl-892d82595257ad4946d399f004a293a79f6ab611.tar.gz | |
Add inversion list for U+80 - U+FF
This is the upper half of the Latin1 range. This simplifies some code
very slightly, but will be of use in future commits.
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -5547,6 +5547,7 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count, PL_AboveLatin1 = _new_invlist_C_array(AboveLatin1_invlist); PL_ASCII = _new_invlist_C_array(ASCII_invlist); PL_Latin1 = _new_invlist_C_array(Latin1_invlist); + PL_UpperLatin1 = _new_invlist_C_array(UpperLatin1_invlist); PL_L1Posix_ptrs[_CC_ALPHANUMERIC] = _new_invlist_C_array(L1PosixAlnum_invlist); @@ -13755,10 +13756,8 @@ parseit: /* Under /d, we put into a separate list the Latin1 things that * match only when the target string is utf8 */ SV* nonascii_but_latin1_properties = NULL; - _invlist_intersection(posixes, PL_Latin1, + _invlist_intersection(posixes, PL_UpperLatin1, &nonascii_but_latin1_properties); - _invlist_subtract(nonascii_but_latin1_properties, PL_ASCII, - &nonascii_but_latin1_properties); _invlist_subtract(posixes, nonascii_but_latin1_properties, &posixes); if (cp_list) { |