From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 2 Feb 2002 01:31:50 +0000 (+0000)
Subject: EBCDIC: the low 256 \N{...} need to be remapped.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cddc7ef45eea6c8e3b036ab7ac758818e0ce1a76;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC: the low 256 \N{...} need to be remapped.

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

diff --git a/toke.c b/toke.c
index 9d3acd2..7db985e 100644
--- a/toke.c
+++ b/toke.c
@@ -1557,6 +1557,19 @@ S_scan_const(pTHX_ char *start)
 		    if (has_utf8)
 			sv_utf8_upgrade(res);
 		    str = SvPV(res,len);
+#ifdef EBCDIC
+		    {
+			 UV uv = utf8_to_uvchr((U8*)str, 0);
+
+			 if (uv < 0x100) {
+			      U8 tmpbuf[UTF8_MAXLEN+1], *d;
+
+			      d = uvchr_to_utf8(tmpbuf, UNI_TO_NATIVE(uv));
+			      sv_setpvn(res, (char *)tmpbuf, d - tmpbuf);
+			      str = SvPV(res, len);
+			 }
+		    }
+#endif
 		    if (!has_utf8 && SvUTF8(res)) {
 			char *ostart = SvPVX(sv);
 			SvCUR_set(sv, d - ostart);