diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-16 21:40:03 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-16 22:23:57 -0600 |
| commit | 2635722d6769b6a06f8af85fbf562e7c91cfa68c (patch) | |
| tree | 553c3a298cce3fc5a6d34e6fd22f06e5863c9496 /regcomp.c | |
| parent | 68f986b99c71413001891e9dff012b525d6d6d78 (diff) | |
| download | perl-2635722d6769b6a06f8af85fbf562e7c91cfa68c.tar.gz | |
regcomp.c: Omitted hard-coded case mapping
The code has hard-coded the possible case mappings for the code points
< 256. This one was omitted.
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -9344,6 +9344,8 @@ S_set_regclass_bit_fold(pTHX_ RExC_state_t *pRExC_state, regnode* node, const U8 LATIN_CAPITAL_LETTER_Y_WITH_DIAERESIS); break; case LATIN_SMALL_LETTER_SHARP_S: + /* 0x1E9E is LATIN CAPITAL LETTER SHARP S */ + *invlist_ptr = add_cp_to_invlist(*invlist_ptr, 0x1E9E); /* Under /a, /d, and /u, this can match the two chars "ss" */ if (! MORE_ASCII_RESTRICTED) { |