Now that to_utf8_fold() was fixed.

p4raw-id: //depot/perl@14004

1 files changed, 1 insertions, 3 deletions

diff --git a/regcomp.c b/regcomp.c
index 9dad63181f..a61d03996d 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3132,9 +3132,7 @@ tryagain:
 		    p = regwhite(p, RExC_end);
 		if (UTF && FOLD) {
 		    /* Prime the casefolded buffer. */
-		    toFOLD_uni(ender, tmpbuf, &foldlen);
-		    /* Need to peek at the first character. */
-		    ender = utf8_to_uvchr(tmpbuf, 0);
+		    ender = toFOLD_uni(ender, tmpbuf, &foldlen);
 		}
 		if (ISMULT2(p)) { /* Back off on ?+*. */
 		    if (len)