Change 14855 by jhi@alpha on 2002/02/24 19:49:01
Use to_uni_fold().
Affected files ...
.... //depot/perl/regcomp.c#289 edit
Differences ...
==== //depot/perl/regcomp.c#289 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Sun Feb 24 13:00:05 2002
+++ perl/regcomp.c Sun Feb 24 13:00:05 2002
@@ -4088,14 +4088,9 @@
else if (prevnatvalue == natvalue) {
Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n", natvalue);
if (FOLD) {
- U8 tmpbuf [UTF8_MAXLEN+1];
U8 foldbuf[UTF8_MAXLEN_FOLD+1];
STRLEN foldlen;
- UV f;
-
- uvchr_to_utf8(tmpbuf, natvalue);
- to_utf8_fold(tmpbuf, foldbuf, &foldlen);
- f = UNI_TO_NATIVE(utf8_to_uvchr(foldbuf, 0));
+ UV f = to_uni_fold(natvalue, foldbuf, &foldlen);
/* If folding and foldable and a single
* character, insert also the folded version
End of Patch.
