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.

diff --git a/regcomp.c b/regcomp.c
index d03fe3e..b9eb607 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -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) {