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