'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}",
if ($row{set}) {}
elsif ($row{set} = Encode::resolve_alias($input)) {
$row{offset} = delete $row{startpoint};
- if ($row{set} eq 'MacHebrew' or $row{set} eq 'MacThai') {
+ if ($charset->{varchar}) {
# array of possibly multiple characters per code point
$row{table} = [
map { Encode::decode($row{set}, pack 'C*', $_) } $row{offset} .. $row{endpoint}