X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/81aefba6ac586eccbe18b4e90efc175e34fff5ad..921547406c8cdd5b4cffee21bca0ee56f23251dc:/apl.plp diff --git a/apl.plp b/apl.plp index 6fdf3ca..ba51a11 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,21 +60,21 @@ 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 '