Allow emitting the foldcased version of "\x{df}", "ss"

(among others, another example would be \x{fb00} -> "ff")

p4raw-id: //depot/perl@14046

diff --git a/regcomp.c b/regcomp.c
index a61d039..cb74043 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -3137,7 +3137,7 @@ tryagain:
                if (ISMULT2(p)) { /* Back off on ?+*. */
                    if (len)
                        p = oldp;
-                   else if (!UNI_IS_INVARIANT(NATIVE_TO_UNI(ender)) && UTF) {
+                   else if (UTF) {
                         if (FOLD) {
                              /* Emit all the Unicode characters. */
                              for (foldbuf = tmpbuf;
@@ -3162,7 +3162,7 @@ tryagain:
                    }
                    break;
                }
-               if (!UNI_IS_INVARIANT(NATIVE_TO_UNI(ender)) && UTF) {
+               if (UTF) {
                     if (FOLD) {
                          /* Emit all the Unicode characters. */
                          for (foldbuf = tmpbuf;