From c5edeb4e1b7c302cc5840cc83d7474b8f1384ab6 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 8 Apr 2017 01:20:29 +0200
Subject: [PATCH] charset: avoid misaligned override of offset cp437

---
 charset.plp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.30.0