my $incsuffix = '.inc.pl';
for my $fontfile (glob 'data/font/*'.$incsuffix) {
my ($fontid) = basename($fontfile, $incsuffix);
my $incsuffix = '.inc.pl';
for my $fontfile (glob 'data/font/*'.$incsuffix) {
my ($fontid) = basename($fontfile, $incsuffix);
$fontmeta->{file} = $fontid;
my $year = substr $fontmeta->{date}, 0, 4;
$fontmeta->{description} = join(' ',
$fontmeta->{file} = $fontid;
my $year = substr $fontmeta->{date}, 0, 4;
$fontmeta->{description} = join(' ',
(map { "($_)" } $year || ()),
);
push @fontlist, $fontmeta;
(map { "($_)" } $year || ()),
);
push @fontlist, $fontmeta;
if ($chartables) {
while (my ($tablegroup, $grouprow) = each %{$chartables}) {
while (my ($tablename, $chars) = each %{$grouprow}) {
if ($chartables) {
while (my ($tablegroup, $grouprow) = each %{$chartables}) {
while (my ($tablename, $chars) = each %{$grouprow}) {