This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The EBCDIC gaps apply only to the real A-Z.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Mar 2002 00:25:33 +0000 (00:25 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Mar 2002 00:25:33 +0000 (00:25 +0000)
p4raw-id: //depot/perl@14969

ext/B/B/Deparse.pm

index 14269ad..5a61a6d 100644 (file)
@@ -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;
 }