From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 3 Feb 2002 17:04:34 +0000 (+0000)
Subject: EBCDIC: character classes must remap the low 256.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9e8f19525ca9c19680d011d38a5ca4b6fd03b8cc;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC: character classes must remap the low 256.

p4raw-id: //depot/perl@14534
---

diff --git a/regcomp.c b/regcomp.c
index bf4d226..c238f4e 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4065,9 +4065,9 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
 			 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