"\e" and "\a" didn't produce right escape under EBCDIC

	Message-Id: <9906041900.AA28387@forte.com>
	Subject: [PATCH 5.005_57]lingering ASCIIism in tokener

p4raw-id: //depot/perl@3591

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++;