This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
"\e" and "\a" didn't produce right escape under EBCDIC
authorPeter Prymmer <PPrymmer@factset.com>
Fri, 4 Jun 1999 12:00:27 +0000 (05:00 -0700)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 5 Jul 1999 16:52:34 +0000 (16:52 +0000)
Message-Id: <9906041900.AA28387@forte.com>
Subject: [PATCH 5.005_57]lingering ASCIIism in tokener

p4raw-id: //depot/perl@3591

toke.c

diff --git a/toke.c b/toke.c
index 1378d39..dd8742b 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -1147,12 +1147,21 @@ S_scan_const(pTHX_ char *start)
            case 't':
                *d++ = '\t';
                break;
+#ifdef EBCDIC
+           case 'e':
+               *d++ = '\047';  /* CP 1047 */
+               break;
+           case 'a':
+               *d++ = '\057';  /* CP 1047 */
+               break;
+#else
            case 'e':
                *d++ = '\033';
                break;
            case 'a':
                *d++ = '\007';
                break;
+#endif
            } /* end switch */
 
            s++;