}
}
else {
- print "<p>Encoding $input unknown</p>\n";
+ say "<p class=error>Encoding <q>$input</q> unknown</p>";
}
- \%row;
+ $row{set} ? \%row : ();
}
else {
();
$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';
}
# 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;