Stop complaining [Argument "" isn't numeric] about implicit 0- in presets
like 'latin/sample=-1'.
last if $table->[$rowlen] =~ /\./;
}
my @cells = map {
last if $table->[$rowlen] =~ /\./;
}
my @cells = map {
my $end = (s/-(.+)?// ? ($1 // @$table / $rowlen - 1) : $_) + 1;
$_ * $rowlen .. $end * $rowlen - 1;
} @select;
my $end = (s/-(.+)?// ? ($1 // @$table / $rowlen - 1) : $_) + 1;
$_ * $rowlen .. $end * $rowlen - 1;
} @select;