From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 4 Mar 2002 00:25:33 +0000 (+0000)
Subject: The EBCDIC gaps apply only to the real A-Z.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fc132725ed490232a6e690efa38edb96914546a6;p=p5sagit%2Fp5-mst-13.2.git

The EBCDIC gaps apply only to the real A-Z.

p4raw-id: //depot/perl@14969
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 14269ad..5a61a6d 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;
 }