elsif (defined $visible->{ascii}) {
$row{parent} = $parents[0];
$params = $parents[1] // 80;
- $params = 80 if hex $params >= 128; # ascii offset at most
+ $params = 80 if hex $params >= 0x80; # ascii offset at most
}
elsif (@parents) {
$row{parent} = $parents[0];
elsif (lc $input eq 'uu') {
$row{cell} = do 'charset-ucplanes.inc.pl'
or Alert('Table data could not be read', $@ || $!);
- $row{endpoint} ||= 1023;
+ $row{endpoint} ||= 0x3FF;
$row{set} = 'Unicode planes';
}
elsif (lc $input eq 'u') {
$row{cell} = do 'charset-unicode.inc.pl'
or Alert('Table data could not be read', $@ || $!);
- $row{endpoint} ||= 8191;
+ $row{endpoint} ||= 0x1FFF;
$row{set} = 'Unicode ' . (
$row{startpoint} < 0x1000 && $row{endpoint} < 0x1000 ? 'BMP' :
$row{startpoint} >= 0x1000 && $row{endpoint} < 0x2000 ? 'SMP' :
$row{set} = 'UTF-8';
$row{cell} = do 'charset-utf8.inc.pl'
or Alert('Table data could not be read', $@ || $!);
- $row{endpoint} = 255;
+ $row{endpoint} = 0xFF;
}
elsif ($row{set} = Encode::resolve_alias($input)) {
$row{offset} = delete $row{startpoint};
- $row{endpoint} ||= 255;
+ $row{endpoint} ||= 0xFF;
if ($row{set} eq 'MacHebrew' or $row{set} eq 'MacThai') {
# array of possibly multiple characters per code point
$row{table} = [