EBCDIC: this change for \N{} in particular is now

unnecessary because of the recent more general
pack U change.

p4raw-id: //depot/perl@14652

1 files changed, 8 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 2eb049fac0..a9a2821264 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);