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

[Jarkko Hietaniemi]

Change 14046 by jhi@alpha on 2002/01/03 20:22:48

        Allow emitting the foldcased version of "\x{df}", "ss"
        (among others, another example would be \x{fb00} -> "ff")

Affected files ...

.... //depot/perl/regcomp.c#268 edit

Differences ...

==== //depot/perl/regcomp.c#268 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~  Thu Jan  3 13:30:05 2002
+++ perl/regcomp.c      Thu Jan  3 13:30:05 2002
@@ -3137,7 +3137,7 @@
                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 @@
                    }
                    break;
                }
-               if (!UNI_IS_INVARIANT(NATIVE_TO_UNI(ender)) && UTF) {
+               if (UTF) {
                     if (FOLD) {
                          /* Emit all the Unicode characters. */
                          for (foldbuf = tmpbuf;
End of Patch.