chars: font coverage from hashed data entry
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 29 Oct 2023 00:15:20 +0000 (02:15 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Sun, 29 Oct 2023 01:42:08 +0000 (02:42 +0100)
Another overlooked value since relocation in commit v1.13-8-gc6a420bb40
(2022-06-02) [font: coverage data as cover array in primary hash].

chars.plp

index e106eb425862f9807559e3b9f7abf1753a1d93b5..91df3b83d817fd0640bc2c407a7b336292a0ec69 100644 (file)
--- a/chars.plp
+++ b/chars.plp
@@ -30,11 +30,10 @@ my @fontlist = map { $_->{file} }
 
 my %font;
 for my $fontid (@fontlist) {
-               my ($fontmeta, @fontrange) = eval { Data("data/font/$fontid") };
-               $fontmeta or next;
+               my $fontmeta = eval { Data("data/font/$fontid") } or next;
                $font{$fontid} = {
                        (map { (-$_ => $fontmeta->{$_}) } keys %{$fontmeta}),
-                       map { (chr $_ => 1) } @fontrange
+                       map { (chr $_ => 1) } @{ $fontmeta->{cover} }
                };
 }