X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/917ba679115b9e3cd7b88f7e5081a1a2503a684e..HEAD:/digits.plp diff --git a/digits.plp b/digits.plp index 163ee10..a55b49a 100644 --- a/digits.plp +++ b/digits.plp @@ -37,11 +37,10 @@ unless (exists $get{v}) { $glyphs->{style} = 'univer'; } -my $scriptname = do 'writing-script.inc.pl'; +my $scriptname = eval { Data('writing-script') }; $_ = showlink($_, "/latin") for $scriptname->{latn} || (); -my $table = do "writing-digits.inc.pl"; -Abort("Table data not found", 501, $_) for $@ || $! || (); +my $table = Data("writing-digits"); sub printtable { say '
', $glyphs->tabletag;