git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
charset: prefer manual definitions over continuations
[sheet.git]
/
charset.plp
diff --git
a/charset.plp
b/charset.plp
index b0d3b834b477f366d3cc534120fc59927bb123f3..33156693d3f15c24a877b5645e86af041c5ebbe2 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-1,4
+1,5
@@
<(common.inc.plp)><:
<(common.inc.plp)><:
+use 5.014;
Html({
title => 'charset cheat sheet',
Html({
title => 'charset cheat sheet',
@@
-89,9
+90,9
@@
my @request = map {
}
}
else {
}
}
else {
-
print "<p>Encoding $input unknown</p>\n
";
+
say "<p class=error>Encoding <q>$input</q> unknown</p>
";
}
}
-
\%row
;
+
$row{set} ? \%row : ()
;
}
else {
();
}
else {
();
@@
-123,7
+124,7
@@
sub range_cell {
$cols = $len if $len < $cols; #TODO: optimise
if ($len -= $cols) {
# continued on new row
$cols = $len if $len < $cols; #TODO: optimise
if ($len -= $cols) {
# continued on new row
- $table->{$offset + $nibsize*$cols} = [$len*$nibsize, "$class joinu", $name, $title];
+ $table->{$offset + $nibsize*$cols}
//
= [$len*$nibsize, "$class joinu", $name, $title];
$name = '';
$class .= ' joind';
}
$name = '';
$class .= ' joind';
}
@@
-133,7
+134,7
@@
sub range_cell {
# multiple full rows
if ($len -= $rows << 4) {
# partial row remains
# multiple full rows
if ($len -= $rows << 4) {
# partial row remains
- $table->{$offset + $nibsize*$rows * 16} = [$len*$nibsize, "$class joinu", '', $title];
+ $table->{$offset + $nibsize*$rows * 16}
//
= [$len*$nibsize, "$class joinu", '', $title];
$class .= ' joind';
}
$attr .= sprintf ' rowspan=%d', $rows;
$class .= ' joind';
}
$attr .= sprintf ' rowspan=%d', $rows;