Gisle Aas writes:
: use utf8;
:
: $_ = "abc...\x{e6}\x{f8}\x{e5}";
: tr/\x{7F}-\x{FF}//d;
:
: print "not " unless $_ eq "abc...";
: print "ok 6\n";
:
: print udump($_), "\n";
:
: sub udump
: {
: my $str = shift;
: $str =~ s/\\/\\\\/g;
: $str =~ s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
: $str;
: }
Here's the patch for that. [Already checked in.]
Larry
*** perl5.005_52/lib/utf8_heavy.pl Sat Aug 8 15:43:00 1998
--- perl5.005_52pat/lib/utf8_heavy.pl Fri Oct 23 11:54:02 1998
***************
*** 123,130 ****
# print "$min $max $val\n";
if ($none) {
if ($min < $start) {
! $val += $start - $min;
! $val = $none if $val > $none;
$min = $start;
}
for ($key = $min; $key <= $max; $key++) {
--- 123,129 ----
# print "$min $max $val\n";
if ($none) {
if ($min < $start) {
! $val += $start - $min if $val < $none;
$min = $start;
}
for ($key = $min; $key <= $max; $key++) {