From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 7 Apr 2017 23:20:29 +0000 (+0200)
Subject: charset: avoid misaligned override of offset cp437
X-Git-Tag: v1.10~225
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/c5edeb4e1b7c302cc5840cc83d7474b8f1384ab6

charset: avoid misaligned override of offset cp437
---

diff --git a/charset.plp b/charset.plp
index 8b42e62..486fece 100644
--- a/charset.plp
+++ b/charset.plp
@@ -109,7 +109,7 @@ sub tabinput {
 				# (~16x faster than decoding in loop;
 				#  substr strings is twice as fast as splitting to an array)
 
-			if ($row{set} eq 'cp437') {
+			if ($row{set} eq 'cp437' and !$row{offset}) {
 				substr($row{table}, 237, 1) = pack 'U*', 0x3D5; # phi sign
 				substr($row{table}, 0, 32) = pack 'U*', map {hex} qw(
 					2007 263A 263B 2665 2666 2663 2660 2022