From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 8 Apr 2017 21:32:50 +0000 (+0200)
Subject: charset: fix cp437 offset on extend
X-Git-Tag: v1.10~198
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/6ebcef6469e7f71e829942051097931ce9d746b8

charset: fix cp437 offset on extend
---

diff --git a/charset.plp b/charset.plp
index 33e5db4..74ea8e7 100644
--- a/charset.plp
+++ b/charset.plp
@@ -226,7 +226,8 @@ sub tabinput {
 			$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} }++;
@@ -235,7 +236,7 @@ sub tabinput {
 			else {
 				$row{offset} = $+{offset};
 			}
-			$row{endpoint} = $+{endpoint};
+			$row{endpoint} = $+{endpoint} || 0;
 		}
 		else {
 			Alert("Unknown option <q>$param</q> for charset $input");