diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 1999-07-01 12:31:24 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-18 05:22:36 +0000 |
| commit | da0838f1870c5338e6bf9ab745ef01fde1406476 (patch) | |
| tree | cfa7932aec9307ac21bc6678ab177c24e421e007 /ebcdic.c | |
| parent | 9efbc0eb9ef0a7b1489f59143775f10b17cd372d (diff) | |
| download | perl-da0838f1870c5338e6bf9ab745ef01fde1406476.tar.gz | |
[ID 19990701.031] 4 ctl chars on EBCDIC not asciiish enough
Message-Id: <9907020231.AA16942@forte.com>
p4raw-id: //depot/perl@3697
Diffstat (limited to 'ebcdic.c')
| -rw-r--r-- | ebcdic.c | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -25,6 +25,14 @@ ebcdic_control(int ch) } else { /* Want uncontrol */ if (ch == '\177' || ch == -1) return('?'); + else if (ch == '\157') + return('\177'); + else if (ch == '\174') + return('\000'); + else if (ch == '^') /* '\137' in 1047, '\260' in 819 */ + return('\036'); + else if (ch == '\155') + return('\037'); else if (0 < ch && ch < (sizeof(controllablechars) - 1)) return(controllablechars[ch+1]); else |