In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/1848346ffa44e6cc26b51a9cc2ef878e44ae3dd8?hp=ef80cd9998532b7e2be7823cd9af7ba1198822e5>
- Log -----------------------------------------------------------------
commit 1848346ffa44e6cc26b51a9cc2ef878e44ae3dd8
Author: David Mitchell <da...@iabyn.com>
Date: Wed Feb 7 10:34:02 2018 +0000
fix tr/// Deparse tests under EBCDIC
Some tests I recently added had A-Z in the replacement charlist, which
under EBCDIC gets deparsed as A-IJ-RS-Z, so original and deparsed don't
match.
Ideally the deparsing could be smart enough to coalesce those ranges,
but for now I've just changed the range to A-I which deparses ok on both
ASCII and EBCDIC.
The point of the test is for when there are more replacement chars than
search chars, and in this case A-I works just as well as A-Z.
Spotted by Karl.
-----------------------------------------------------------------------
Summary of changes:
lib/B/Deparse.t | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 3219e19b81..ffdfc6c67e 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -1448,15 +1448,15 @@ tr/X//r;
tr/\000-\375/AB/c;
tr/\000-\375/A-C/c;
tr/\000-\375/A-D/c;
-tr/\000-\375/A-Z/c;
+tr/\000-\375/A-I/c;
tr/\000-\375/AB/cd;
tr/\000-\375/A-C/cd;
tr/\000-\375/A-D/cd;
-tr/\000-\375/A-Z/cd;
+tr/\000-\375/A-I/cd;
tr/\000-\375/AB/cds;
tr/\000-\375/A-C/cds;
tr/\000-\375/A-D/cds;
-tr/\000-\375/A-Z/cds;
+tr/\000-\375/A-I/cds;
####
# [perl #119807] s//\(3)/ge should not warn when deparsed (\3 warns)
s/foo/\(3);/eg;
--
Perl5 Master Repository
