From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 4 Jun 1999 12:00:27 +0000 (-0700)
Subject: "\e" and "\a" didn't produce right escape under EBCDIC
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=34a3fe2a9262070e416cc81a287bd615ce8ea66b;p=p5sagit%2Fp5-mst-13.2.git

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