}
[
iso => 'ISO',
+ win => 'Windows',
dos => 'DOS',
mac => 'Apple',
ebcdic => 'EBCDIC',
state $ALIAS = {
default => [qw( u+0-639 utf-8+realsize iso-8859-1 iso-8859-15 cp1252 cp437 cp850 )],
- unicode => [qw( uu+cols=32 u+0-4095 u+4096-6319 u+6320-8191 )],
+ unicode => [qw( uu+cols=32+realsize u+0-4095 u+4096-6319 u+6320-8191 )],
us => [qw( cp437 cp863 gsm0338 AdobeStandardEncoding )],
ebcdic => [qw( cp37 cp500 cp1047 posix-bc cp1026 cp875 )],
iso => [map {"iso-8859-$_"} 1 .. 11, 13 .. 16],
if ($len -= $rest) {
# continued on new row
my @next = ($len * $colsize, "$class joinu");
+ my $separate = $cols - $len > $rest; # columns not on next row
if ($len > $rest) {
# minority remains
push @next, $name, $title;
$title ||= $name;
- $name = '';
+ $name = $separate && '…';
}
else {
# minority on next row
- push @next, '"', $title || $name;
+ push @next, $separate && '"', $title || $name;
}
$table->{$offset + $colsize*$rest} //= \@next;
$class .= ' joind';