X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/211543b923759291c93630472bae959c6e8fb652..3b395d58206174e283f62ac5ca3a382c9d375a02:/charset.plp diff --git a/charset.plp b/charset.plp index b0d3b83..fcd647d 100644 --- a/charset.plp +++ b/charset.plp @@ -24,7 +24,6 @@ my $glyphs = Shiar_Sheet::FormatChar->new; 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) @@ -71,7 +70,7 @@ my @request = map { @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'; @@ -85,19 +84,19 @@ my @request = map { or printf "
Table data could not be read: %s.
\n", $@ || $!; } else { - $row{table} = decode($row{set}, pack 'C*', $row{offset} .. $endpoint); + $row{table} = Encode::decode($row{set}, pack 'C*', $row{offset} .. $endpoint); } } else { - print "Encoding $input unknown
\n"; + say "Encoding $input
unknown