From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 22 Apr 2017 11:46:21 +0000 (+0200)
Subject: charset: common endpoint fallback
X-Git-Tag: v1.10~92
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/b64f0a388f259bdb272fbafe9d6f3cd0b2e26e7a

charset: common endpoint fallback
---

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index 71ba2ba..c1fd74c 100644
--- a/charset-encoding.inc.pl
+++ b/charset-encoding.inc.pl
@@ -188,7 +188,6 @@ use utf8;
 		$row->{set} = 'UTF-8';
 		$row->{cell} = do 'charset-utf8.inc.pl'
 			or Alert('Table data could not be read', $@ || $!);
-		$row->{endpoint} = 0xFF;
 		return $row;
 	}},
 	'utf-8'        => 'utf8',
diff --git a/charset.plp b/charset.plp
index 7f19bc1..5b415ee 100644
--- a/charset.plp
+++ b/charset.plp
@@ -147,11 +147,11 @@ sub tabinput {
 		eval { $charset->{setup}->(\%row) }
 			or Alert("Incomplete setup of $input", $@);
 	}
+	$row{endpoint} ||= 0xFF;
 
 	if ($row{set}) {}
 	elsif ($row{set} = Encode::resolve_alias($input)) {
 		$row{offset} = delete $row{startpoint};
-		$row{endpoint} ||= 0xFF;
 		if ($row{set} eq 'MacHebrew' or $row{set} eq 'MacThai') {
 			# array of possibly multiple characters per code point
 			$row{table} = [