charset: omit unassigned half of ascii table
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 21 Apr 2017 20:57:24 +0000 (22:57 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 25 May 2017 20:10:24 +0000 (22:10 +0200)
charset.plp

index d0dd864f70345259301537ee719ce1469cef1e45..6d60e2733774720f1d3bdabb85a346dafcd912d6 100644 (file)
@@ -131,6 +131,7 @@ sub tabinput {
 
        if (not defined $params) {
                state $INHERIT = {
 
        if (not defined $params) {
                state $INHERIT = {
+                       'ascii'       => ['' => '0-127'],
                        'cp437'       => ['cp850' => 0, 'ascii' => '0-31+128'], # ascii range overridden later
                        'gsm0338'     => ['ascii' => '0-127'],
                        'dingbats'    => ['' => '32-127+160'],
                        'cp437'       => ['cp850' => 0, 'ascii' => '0-31+128'], # ascii range overridden later
                        'gsm0338'     => ['ascii' => '0-127'],
                        'dingbats'    => ['' => '32-127+160'],