charset: generic varchar option to identify array maps

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 6300622f3ea16088b40c6aee93c63a96f93ec1b2..6ec4a242986f85ef4475ae7b9441729995fe0f03 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -152,7 +152,7 @@ sub tabinput {
        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}