X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/88048e2c00e3e9a9c172e788722354017cd401ec..58725794d72361cc70cb082476a32d08e22d21d0:/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;