diff options
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 22 |
1 files changed, 12 insertions, 10 deletions
@@ -6226,20 +6226,22 @@ Perl_parse_uniprop_string(pTHX_ const char * const name, const Size_t len, const /* In a few properties, a different property is used under /i. These are * unlikely to change, so are hard-coded here. */ if (to_fold) { - if ( table_index == PL_XPOSIXUPPER - || table_index == PL_XPOSIXLOWER - || table_index == PL_LT) + if ( table_index == PL_UPPER + || table_index == PL_LOWER + || table_index == PL_TITLE) { table_index = PL_CASED; } - else if ( table_index == PL_LU - || table_index == PL_LL - || table_index == PL_LT) - { - table_index = PL_L_AMP_; + else if ( table_index == PL_UPPERCASELETTER + || table_index == PL_LOWERCASELETTER +#ifdef PL_TITLECASELETTER /* Missing from early Unicodes */ + || table_index == PL_TITLECASELETTER +#endif + ) { + table_index = PL_CASEDLETTER; } - else if ( table_index == PL_POSIXUPPER - || table_index == PL_POSIXLOWER) + else if ( table_index == PL_POSIXUPPER + || table_index == PL_POSIXLOWER) { table_index = PL_POSIXALPHA; } |