Change 13964: Fix all the I case foldings as per CaseFold.txt.

[Jarkko Hietaniemi]

Change 13964 by jhi@alpha on 2001/12/30 21:12:25

        Fix all the I case foldings as per CaseFold.txt.

Affected files ...

.... //depot/perl/regcomp.c#263 edit
.... //depot/perl/regexec.c#224 edit

Differences ...

==== //depot/perl/regcomp.c#263 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~  Sun Dec 30 14:15:05 2001
+++ perl/regcomp.c      Sun Dec 30 14:15:05 2001
@@ -3991,7 +3991,8 @@
                         UV f;
 
                         uvchr_to_utf8(tmpbuf, value);
-                        f = to_utf8_fold(tmpbuf, foldbuf, &foldlen);
+                        to_utf8_fold(tmpbuf, foldbuf, &foldlen);
+                        f = utf8_to_uvchr(foldbuf, 0);
 
                         if (f != value)
                              Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n", f);

==== //depot/perl/regexec.c#224 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~  Sun Dec 30 14:15:05 2001
+++ perl/regexec.c      Sun Dec 30 14:15:05 2001
@@ -995,8 +995,9 @@
                        UV f;
 
                        uvchr_to_utf8(tmpbuf, c);
-                       f = to_utf8_fold(tmpbuf, foldbuf, &foldlen);
-
+                       to_utf8_fold(tmpbuf, foldbuf, &foldlen);
+                       f = utf8_to_uvchr(foldbuf, 0);
+                       
                        if (c == (UV)UNICODE_GREEK_CAPITAL_LETTER_SIGMA ||
                            c == (UV)UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA)
                            c = (UV)UNICODE_GREEK_SMALL_LETTER_SIGMA;
End of Patch.