X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/a180fb63ca5b34948194aad96395f3ba8ec5b22d..b5b83b378d3dccb7e6538945eaf5000102a2d658:/charset.plp?ds=inline diff --git a/charset.plp b/charset.plp index b6b61b9..3be6a96 100644 --- a/charset.plp +++ b/charset.plp @@ -78,7 +78,7 @@ sub tabinput { state $ALIAS = { default => [qw( u+0-639 utf-8+realsize iso-8859-1 iso-8859-15 cp1252 cp437 cp850 )], - unicode => [qw( uu+cols=32 u+0-4095 u+4096-6319 u+6320-8191 )], + unicode => [qw( uu+cols=32+realsize u+0-4095 u+4096-6319 u+6320-8191 )], us => [qw( cp437 cp863 gsm0338 AdobeStandardEncoding )], ebcdic => [qw( cp37 cp500 cp1047 posix-bc cp1026 cp875 )], iso => [map {"iso-8859-$_"} 1 .. 11, 13 .. 16], @@ -439,28 +439,27 @@ for my $row (@request) { next; } + my $cp = $offset + $row->{offset}; my $glyph = ref $row->{table} eq 'ARRAY' ? $row->{table}->[$offset] : substr $row->{table}, $offset, 1; - if ($glyph eq $NOCHAR) { - print '