$visible->{$_} //= 0 for $row{parent};
}
- if (defined $params and $params =~ m/^ (\d+) (-\d+)? /x) {
- $row{offset} = $1;
- $endpoint = -$2 if $2;
+ if (defined $params) {
+ $params =~ m{
+ \A (?<offset> \d+)
+ (?: [-] (?<endpoint> \d+) )? \z
+ }x or Alert([
+ "Unknown range parameters for $input",
+ "<q>$params</q> is not in format start(-end)",
+ ]);
+
+ $row{offset} = $+{offset};
+ $endpoint = $+{endpoint} if $+{endpoint};
}
if ($input =~ /^U([0-9a-f]+)(?:-([0-9a-f]+))?/) {