From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 5 Jan 2001 23:52:33 +0000 (+0000)
Subject: Add a note about EBCDIC versus UTF-8 to a potential problem spot.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba7cea30a89067841f31af65f8c824ae4dcff245;p=p5sagit%2Fp5-mst-13.2.git

Add a note about EBCDIC versus UTF-8 to a potential problem spot.

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

diff --git a/toke.c b/toke.c
index 09a2e48..cde1861 100644
--- a/toke.c
+++ b/toke.c
@@ -1400,6 +1400,12 @@ S_scan_const(pTHX_ char *start)
 		 * There will always enough room in sv since such
 		 * escapes will be longer than any UT-F8 sequence
 		 * they can end up as. */
+
+		/* This spot is wrong for EBCDIC.  Characters like
+		 * the lowercase letters and digits are >127 in EBCDIC,
+		 * so here they would need to be mapped to the Unicode
+		 * repertoire.   --jhi */
+		
 		if (uv > 127) {
 		    if (!has_utf8 && (to_be_utf8 || uv > 255)) {
 		        /* Might need to recode whatever we have