From 0ded18d239731231ec81b0a559b0f5ef616acda5 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 8 Apr 2017 14:34:20 +0200
Subject: [PATCH] charset: validate range parameters

---
 charset.plp | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

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]+))?/) {
-- 
2.30.0