From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 30 Jan 2002 00:41:52 +0000 (+0000)
Subject: EBCDIC fix: t/op/lc.t failures 24-25, 29-30, 34-35, 39-40
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fc77cbd6c0eaede05389c8646c18a8ec5adb0721;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC fix: t/op/lc.t failures 24-25, 29-30, 34-35, 39-40

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

diff --git a/utf8.c b/utf8.c
index 0cdaf5f..5d124ba 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1330,6 +1330,7 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp,char *normal
 #endif
 	      return utf8_to_uvchr(ustrp, 0);
 	 }
+	 uv  = NATIVE_TO_UNI(uv);
     }
     if (lenp)
        *lenp = UNISKIP(uv);