my @nibble = (0..9, 'A'..'F');
my $nibsize = 1;
-use Encode qw(decode resolve_alias);
# generate character table(s)
# (~16x faster than decoding in loop;
# substr strings is twice as fast as splitting to an array)
@nibble = (map { $_.0, $_.8 } 0 .. 7);
$nibsize = 8;
}
- elsif ($row{set} = resolve_alias($input)) {
+ elsif ($row{set} = Encode::resolve_alias($input)) {
if ($row{set} eq 'Internal') {
$row{table} = ' ' x ($endpoint < 255 ? 640 : 8192);
$row{set} = 'Unicode BMP';
or printf "<p class=error>Table data could not be read: <em>%s</em>.</p>\n", $@ || $!;
}
else {
- $row{table} = decode($row{set}, pack 'C*', $row{offset} .. $endpoint);
+ $row{table} = Encode::decode($row{set}, pack 'C*', $row{offset} .. $endpoint);
}
}
else {