t/op/tr failing on EBCDIC Platform.

[email protected] (Sastry)
Newsgroups perl.unicode,perl.perl5.porters
Message-ID <[email protected]>
Hi

Can somebody enlighten me how the transliteration operator (tr//) is
supposed to work  on EBCDIC platform?
I am asking this question with reference to a test case in perl-5.8.6
i.e t/op/tr which is failing on EBCDIC platform

Here is the snipped of the test case
................
...............
# Tricky on EBCDIC: while [a-z] [A-Z] must not match the gap characters,
# (i-j, r-s, I-J, R-S), [\x89-\x91] [\xc9-\xd1] has to match them,
# from Karsten Sperling.

# Not working in EBCDIC as of 12674.
$c = ($a = "\x89\x8a\x8b\x8c\x8d\x8f\x90\x91") =~ tr/\x89-\x91/X/;
is($c, 8);
is($a, "XXXXXXXX");
   
# Not working in EBCDIC as of 12674.
$c = ($a = "\xc9\xca\xcb\xcc\xcd\xcf\xd0\xd1") =~ tr/\xc9-\xd1/X/;
is($c, 8);
is($a, "XXXXXXXX");
.......
........

Is it supposed to change the gapped characters to X also? In that case
what is the behaviour for tr/a-z/X ?

Thanks in advance
Sastry
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.