Hi,
If I run the following case folding test,
$a = '0178';
$b = '00FF';
$a1 = pack("U0U*", hex $a);
$b1 = pack("U0U*", map { hex } split " ", $b);
if (":$b1:" =~ /:[$a1]:/i) {
print "ok\n";
}
it fails on z/OS (on perl-5.8.6).
However, if $b = '00DF', the test passes.
$b = '00FF';
$a1 = pack("U0U*", hex $a);
$b1 = pack("U0U*", map { hex } split " ", $b);
if (":$b1:" =~ /:[$a1]:/i) {
print "ok\n";
}
it fails on z/OS (on perl-5.8.6).
However, if $b = '00DF', the test passes.
Any thoughts on why this is happening ? Is there some behaviour specific to '00FF' that needs to be fixed ?
Thanks in advance,
Rajarshi.
Yahoo! for Good
Click here to donate to the Hurricane Katrina relief effort.
