$row{cols} = $1;
}
elsif ($param =~ m{ \A (?<offset> \d+) (?: [-] (?<endpoint> \d+) )? \z }x) {
- if ($row{offset}) {
+ if (defined $row{endpoint}) {
+ # extend earlier range
my $skip = int(($row{endpoint} || $row{offset}) / $row{cols});
for ($skip + 1 .. ($+{offset} / $row{cols}) - 1) {
$row{skip}->{ $_ * $row{cols} - $row{offset} }++;
else {
$row{offset} = $+{offset};
}
- $row{endpoint} = $+{endpoint};
+ $row{endpoint} = $+{endpoint} || 0;
}
else {
Alert("Unknown option <q>$param</q> for charset $input");