X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/3b890f7bdc861cdb3d715273f15715d733a90e30..134dfce59c2c840570bfdd372c78d5312b96beac:/apl.plp?ds=inline diff --git a/apl.plp b/apl.plp index 52ea685..ba51a11 100644 --- a/apl.plp +++ b/apl.plp @@ -2,7 +2,7 @@ Html({ title => 'APL', - version => 'v1.0', + version => '1.0', description => [ ], keywords => [qw' @@ -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 '