Change 14534 by jhi@alpha on 2002/02/03 17:04:34
EBCDIC: character classes must remap the low 256.
Affected files ...
.... //depot/perl/regcomp.c#281 edit
Differences ...
==== //depot/perl/regcomp.c#281 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Sun Feb 3 10:15:05 2002
+++ perl/regcomp.c Sun Feb 3 10:15:05 2002
@@ -4065,9 +4065,9 @@
STRLEN foldlen;
UV f;
- uvchr_to_utf8(tmpbuf, value);
+ uvchr_to_utf8(tmpbuf, NATIVE_TO_UNI(value));
to_utf8_fold(tmpbuf, foldbuf, &foldlen);
- f = utf8_to_uvchr(foldbuf, 0);
+ f = UNI_TO_NATIVE(utf8_to_uvchr(foldbuf, 0));
/* If folding and foldable and a single
* character, insert also the folded version
End of Patch.
