This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
dfa0f64
)
"\e" and "\a" didn't produce right escape under EBCDIC
author
Peter Prymmer
<PPrymmer@factset.com>
Fri, 4 Jun 1999 12:00:27 +0000
(
05:00
-0700)
committer
Gurusamy 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
patch
|
blob
|
blame
|
history
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++;