X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ffb77a24b04bf95317563abe88e1f49797883741..b690e02814ec7b65b10789fac83cd7c8b2b72b30:/charset-encoding.inc.pl

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index b40d75a..6e46477 100644
--- a/charset-encoding.inc.pl
+++ b/charset-encoding.inc.pl
@@ -133,6 +133,7 @@ use utf8;
 	'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
@@ -144,6 +145,7 @@ use utf8;
 	'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}",
@@ -186,8 +188,9 @@ use utf8;
 	}},
 	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 ' . (