X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/7c6662e77e3c64d1210daa5b444a340fc57b2884..a9d42179afd30d7d3291bb1f8b28f19e95da50fd:/digits.plp?ds=sidebyside diff --git a/digits.plp b/digits.plp index 6666b8f..163ee10 100644 --- a/digits.plp +++ b/digits.plp @@ -38,24 +38,23 @@ unless (exists $get{v}) { } my $scriptname = do 'writing-script.inc.pl'; -$_ = qq{$_} for $scriptname->{latn} || (); +$_ = showlink($_, "/latin") for $scriptname->{latn} || (); -my %table = do "writing-digits.inc.pl"; -die "Table data not found: $_\n" for $@ || $! || (); +my $table = do "writing-digits.inc.pl"; +Abort("Table data not found", 501, $_) for $@ || $! || (); sub printtable { say '