X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/219cb22723b29e968bc740d1f34b3b09265a9c08..94259759473e60e9fb3823864031e827f09cc607:/digits.plp diff --git a/digits.plp b/digits.plp index 2f95616..163ee10 100644 --- 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"; -die "Table data not found: $_\n" for $@ || $! || (); +Abort("Table data not found", 501, $_) for $@ || $! || (); sub printtable { say '
', $glyphs->tabletag; @@ -55,7 +55,6 @@ sub printtable { printtable(@{ $table->{$_} }) for @{ $table->{default} }; -:>
- -
+say "\n"; +say for '
', $glyphs->legend;