X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6907147e74f53469d6a987927ca133fd1a9d587b..ccc4981ff62e695908a9855041b9669800a733ed:/font.plp diff --git a/font.plp b/font.plp index 5315764..cc07c05 100644 --- a/font.plp +++ b/font.plp @@ -1,11 +1,10 @@ <(common.inc.plp)><: -use 5.014; -my $font = $ENV{PATH_INFO} =~ s{^/}{}r; +my $font = $Request; Html({ title => 'font coverage '.($font ? "for $font" : 'sheet'), - version => 'v1.2', + version => '1.2', keywords => [qw( unicode font glyph char character support overview cover coverage script block symbol sign mark reference table @@ -108,7 +107,7 @@ EOT say sprintf '
%d%%', "l$class", $rel*100; + printf ' | %d', "l$class", $rel*10; } say ''; } |