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
[perl5.git] / 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++;