git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common: say() to simplify html head lines
[sheet.git]
/
charset.plp
diff --git
a/charset.plp
b/charset.plp
index bd20ca9ef47a1234742236ef0592d33d735aa5a1..3bf294e4489b4a54914bb03e97ab1e6fdac9b5f1 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-1,5
+1,4
@@
<(common.inc.plp)><:
<(common.inc.plp)><:
-use 5.014;
Html({
title => 'charset cheat sheet',
Html({
title => 'charset cheat sheet',
@@
-124,7
+123,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';
}
@@
-134,7
+133,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;