charset: avoid misaligned override of offset cp437

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 8b42e62dbdb9f7f4db9e64e381bb15667041a1e0..486fece03a3b837cde1f92d94ec69dfe7fa768ce 100644 (file)
--- 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