'maccyrillic' => {inherit => ['MacRoman' => '80']},
'machebrew' => {
inherit => ['iso-8859-8' => '80', 'MacRoman' => '80-8F+A0'], # ignore partial ascii
+ varchar => 1,
replace => {
# strip private use characters for unneeded roundtrip
0xDE => chr(0x5C7), # qamats qatan
'macfarsi' => {inherit => ['MacArabic' => 'B0-BF', 'MacRoman' => '80']},
'macthai' => {
inherit => ['iso-8859-11' => '80-9F+D0'],
+ varchar => 1,
replace => {
# strip appended private use characters for unneeded roundtrip
0x83 => "\x{E48}", 0x88 => "\x{E48}", 0x98 => "\x{E48}",
}},
u => {setup => sub {
my $row = shift;
- $row->{cell} = do 'charset-unicode.inc.pl'
+ state $celldata = do 'charset-unicode.inc.pl'
or Alert('Table data could not be read', $@ || $!);
+ $row->{cell} = $celldata;
$row->{endpoint} ||= 0x1FFF;
$row->{set} = 'Unicode ' . (