Unicode casefolding fixes.

p4raw-id: //depot/perl@13843

1 files changed, 5 insertions, 2 deletions

diff --git a/regexec.c b/regexec.c
index 35a0a6c2b0..b7528e720d 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4110,9 +4110,12 @@ S_reginclass(pTHX_ register regnode *n, register U8* p, register bool do_utf8)
 		    match = TRUE;
 		else if (flags & ANYOF_FOLD) {
 		    STRLEN ulen;
-		    U8 tmpbuf[UTF8_MAXLEN_UCLC+1];
+		    U8 tmpbuf[UTF8_MAXLEN_FOLD+1];
 
-		    toLOWER_utf8(p, tmpbuf, &ulen);
+		    to_utf8_fold(p, tmpbuf, &ulen);
+		    if (swash_fetch(sw, tmpbuf, do_utf8))
+			match = TRUE;
+		    to_utf8_upper(p, tmpbuf, &ulen);
 		    if (swash_fetch(sw, tmpbuf, do_utf8))
 			match = TRUE;
 		}