git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
word/edit: ignore unicode in json metadata
[sheet.git]
/
digits.plp
diff --git
a/digits.plp
b/digits.plp
index 2f95616e0df3a1806b9dd6d7f7d3116ffa48aeb6..163ee1035a986b706a0f92cab3d151127080197e 100644
(file)
--- a/
digits.plp
+++ b/
digits.plp
@@
-41,7
+41,7
@@
my $scriptname = do 'writing-script.inc.pl';
$_ = showlink($_, "/latin") for $scriptname->{latn} || ();
my $table = do "writing-digits.inc.pl";
$_ = showlink($_, "/latin") for $scriptname->{latn} || ();
my $table = do "writing-digits.inc.pl";
-
die "Table data not found: $_\n"
for $@ || $! || ();
+
Abort("Table data not found", 501, $_)
for $@ || $! || ();
sub printtable {
say '<div class=section>', $glyphs->tabletag;
sub printtable {
say '<div class=section>', $glyphs->tabletag;
@@
-55,7
+55,6
@@
sub printtable {
printtable(@{ $table->{$_} }) for @{ $table->{default} };
printtable(@{ $table->{$_} }) for @{ $table->{default} };
-:></div>
-
-<hr>
+say "</div>\n";
+say for '<hr/>', $glyphs->legend;