diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-04 00:25:33 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-04 00:25:33 +0000 |
| commit | fc132725ed490232a6e690efa38edb96914546a6 (patch) | |
| tree | 9a5e288c27ffa309d75eedfb102929c9f602a6ca /ext/B | |
| parent | 57aa3c4e03f4cbb463b4d524a054cc846d837648 (diff) | |
| download | perl-fc132725ed490232a6e690efa38edb96914546a6.tar.gz | |
The EBCDIC gaps apply only to the real A-Z.
p4raw-id: //depot/perl@14969
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 14269ad14d..5a61a6dbd1 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3089,8 +3089,7 @@ sub escape_str { # ASCII, UTF8 $str =~ s/\e/\\e/g; $str =~ s/\f/\\f/g; $str =~ s/\r/\\r/g; - # The funny gaps are for the benefit of EBCDIC. - $str =~ s/([\cA-\cI\cJ-\cR\cS-\cZ])/$unctrl{$1}/ge; + $str =~ s/([\cA-\cZ])/$unctrl{$1}/ge; $str =~ s/([[:^print:]])/sprintf("\\%03o", ord($1))/ge; return $str; } |