regcomp.c: Greek multi-char folds fix

GREEK PROSGEGRAMMENI and COMBINING GREEK YPOGEGRAMMENI fold to the
the first character of one of the tricky folds, and hence need
to be treated as potentially tricky themselves.

diff --git a/regcomp.c b/regcomp.c
index 21d54f8072acad3f24aa5bf3b73b3a5dad069aaf..130a6b7c9509749767d514fbc4ca8eb89fcc002c 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8838,6 +8838,9 @@ tryagain:
                            break;
                        case 0x03B9:    /* First char in iota series */
                        case 0x0399:    /* Also capital IOTA */
+                       case 0x1FBE:    /* GREEK PROSGEGRAMMENI folds to 3B9 */
+                       case 0x0345:    /* COMBINING GREEK YPOGEGRAMMENI folds
+                                          to 3B9 */
                            if (p < RExC_end - 4) {
                                latest_char_state = iota_1;
                                if (len != 0) {