Change 14969 by jhi@alpha on 2002/03/04 00:25:33
The EBCDIC gaps apply only to the real A-Z.
Affected files ...
.... //depot/perl/ext/B/B/Deparse.pm#113 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#113 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm.~1~ Sun Mar 3 17:30:05 2002
+++ perl/ext/B/B/Deparse.pm Sun Mar 3 17:30:05 2002
@@ -3089,8 +3089,7 @@
$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;
}
End of Patch.
