X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b72093417bc56491451ccee26c93f3e5c73c97eb..5464db21077f6af072bd770f6cb6e907eb48b73d:/latin.plp diff --git a/latin.plp b/latin.plp index 2809d7e..24c74c6 100644 --- a/latin.plp +++ b/latin.plp @@ -33,7 +33,8 @@ if ($! or $@) { printf "

Table data not found: %s.

\n", $! || $@; } else { - print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @table] : \@table); + my @az = map { @$_ } grep { ref $_ eq 'ARRAY' } @table; + print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @az] : \@az); } print "\n";