From 68f17e8677688380e144e379ce5ae7a08d0a7c44 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 29 Dec 2021 19:28:12 +0100
Subject: [PATCH] charset: skip empty petscii rows

Fix startpoint offset.
---
 charset.plp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/charset.plp b/charset.plp
index 119d410..49f2d50 100644
--- a/charset.plp
+++ b/charset.plp
@@ -132,7 +132,7 @@ sub tabinput {
 				# extend earlier range
 				my $skip = int(($row{endpoint} || $row{startpoint}) / $row{cols});
 				for ($skip + 1 .. (hex($+{start}) / $row{cols}) - 1) {
-					$row{skip}->{ $_ * $row{cols} - $row{startpoint} }++;
+					$row{skip}->{ $_ * $row{cols} }++;
 				}
 			}
 			else {
@@ -303,13 +303,13 @@ for my $row (@request) {
 
 	print '<tbody>';
 	while ($offset <= $row->{endpoint} * $colsize) {
-		if ($row->{skip}->{$offset}) {
+		if ($row->{skip}->{$offset + $row->{offset}}) {
 			$offset += $cols * $colsize;
 			next;
 		}
 
 		print '<tr><th>';
-		if (defined $row->{skip}->{$offset}) {
+		if (defined $row->{skip}->{$offset + $row->{offset}}) {
 			print '⋮';
 		}
 		else {
-- 
2.30.0