X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/81aefba6ac586eccbe18b4e90efc175e34fff5ad..v1.10-46-g4c43bcbed6:/apl.plp?ds=sidebyside diff --git a/apl.plp b/apl.plp index 6fdf3ca..9ca9970 100644 --- a/apl.plp +++ b/apl.plp @@ -51,7 +51,7 @@ my @ops = do 'apl.inc.pl'; <: for my $op (@ops) { $op or do { - print "
\n"; + say ''; next; }; @@ -60,36 +60,26 @@ for my $op (@ops) { my $codepoint = ord $chr; my $ascii = $codepoint <= 127; my $info = $glyphs->glyph_info($codepoint); - my ($class, $name, $mnem, $html, $string) = @{$info}; + my ($class, $name, $mnem, $entity, $string) = @{$info}; printf 'unicode 1.1 - | 20th century - | in 6.0 (2010) - | recent assignments - | proposed - | irregular - |