From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 17 Feb 2002 03:13:30 +0000 (+0000)
Subject: EBCDIC: to_utf8_case() is supposed to get its low 256
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5cee1512fcf6895e1f72eb692b5716509ecd392;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC: to_utf8_case() is supposed to get its low 256
input in native code points, not Unicode.

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

diff --git a/utf8.c b/utf8.c
index 0db449c..261f3eb 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1857,7 +1857,7 @@ Perl_ibcmp_utf8(pTHX_ const char *s1, char **pe1, register UV l1, bool u1, const
 	       if (u1)
 		    to_utf8_fold(p1, foldbuf1, &foldlen1);
 	       else {
-		    natbuf[0] = NATIVE_TO_UNI(*p1);
+		    natbuf[0] = *p1;
 		    to_utf8_fold(natbuf, foldbuf1, &foldlen1);
 	       }
 	       q1 = foldbuf1;
@@ -1867,7 +1867,7 @@ Perl_ibcmp_utf8(pTHX_ const char *s1, char **pe1, register UV l1, bool u1, const
 	       if (u2)
 		    to_utf8_fold(p2, foldbuf2, &foldlen2);
 	       else {
-		    natbuf[0] = NATIVE_TO_UNI(*p2);
+		    natbuf[0] = *p2;
 		    to_utf8_fold(natbuf, foldbuf2, &foldlen2);
 	       }
 	       q2 = foldbuf2;