charset: include gsm0338 in legacy group
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 5 Sep 2024 12:39:25 +0000 (14:39 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Sat, 7 Sep 2024 23:50:14 +0000 (01:50 +0200)
charset-encoding.inc.pl

index 8e748ed3f5e25cfe89e14c10098b075af0914f35..91b181a6b22a5063fdabfcf9b448f8c77a395779 100644 (file)
@@ -223,7 +223,7 @@ use utf8;
        'cp1026'       => {inherit => ['cp37' => '40']},
        'cp875'        => {inherit => ['cp37' => '30']},
 
-       legacy     => [qw( cp437 ATASCII PETSCII MSX ZX-Spectrum ANSEL )],
+       legacy     => [qw( cp437 gsm0338 ATASCII PETSCII MSX ZX-Spectrum ANSEL )],
        'petscii'      => {
                inherit => ['' => '40-7F+A0-BF'],
                table => [(map {chr} 0 .. 0x3F), qw(