From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 12 Feb 2002 03:17:44 +0000 (+0000)
Subject: EBCDIC: this change for \N{} in particular is now
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c47067b71f412add997ac1b762af8af26c940f0;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC: this change for \N{} in particular is now
unnecessary because of the recent more general
pack U change.

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

diff --git a/toke.c b/toke.c
index 2eb049f..a9a2821 100644
--- a/toke.c
+++ b/toke.c
@@ -1557,7 +1557,14 @@ S_scan_const(pTHX_ char *start)
 		    if (has_utf8)
 			sv_utf8_upgrade(res);
 		    str = SvPV(res,len);
-#ifdef EBCDIC
+#ifdef EBCDIC_NEVER_MIND
+		    /* charnames uses pack U and that has been
+		     * recently changed to do the below uni->native
+		     * mapping, so this would be redundant (and wrong,
+		     * the code point would be doubly converted).
+		     * But leave this in just in case the pack U change
+		     * gets revoked, but the semantics is still
+		     * desireable for charnames. --jhi */
 		    {
 			 UV uv = utf8_to_uvchr((U8*)str, 0);