From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 8 Apr 2017 12:34:20 +0000 (+0200)
Subject: charset: validate range parameters
X-Git-Tag: v1.10~212
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/0ded18d239731231ec81b0a559b0f5ef616acda5?ds=sidebyside

charset: validate range parameters
---

diff --git a/charset.plp b/charset.plp
index c3477f1..2d4293d 100644
--- a/charset.plp
+++ b/charset.plp
@@ -155,9 +155,17 @@ sub tabinput {
 		$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]+))?/) {