charset: avoid misaligned override of offset cp437
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 7 Apr 2017 23:20:29 +0000 (01:20 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 24 Apr 2017 23:51:41 +0000 (01:51 +0200)
charset.plp

index 8b42e62dbdb9f7f4db9e64e381bb15667041a1e0..486fece03a3b837cde1f92d94ec69dfe7fa768ce 100644 (file)
@@ -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