From 38c0f94fbc07d23581704b72a7e6d3cbe4dfa96c Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 29 Dec 2021 19:35:36 +0100
Subject: [PATCH] charset: compare unknown glyphs in custom tables

Ignore missing classes in Perl v5.28 for Unicode v13.0 legacy computing
symbols, while keeping unassigned code points in unicode blocks (various
gaps in Greek overview).
---
 charset-encoding.inc.pl | 3 ++-
 charset.plp             | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index 2da7614..b534510 100644
--- a/charset-encoding.inc.pl
+++ b/charset-encoding.inc.pl
@@ -271,7 +271,8 @@ use utf8;
 		$row->{endpoint} ||= ($block + 1 << 8) - 1;
 		$block == ($row->{endpoint} >> 8) or undef $block;
 
-		$row->{table} = join '', map { chr } $row->{offset} .. $row->{endpoint};
+		$row->{table} = join '', map { chr =~ s/\A\p{Unassigned}\z/�/r }
+			$row->{offset} .. $row->{endpoint};
 		utf8::upgrade($row->{table});  # prevent latin1 output
 
 		$row->{endpoint} -= $row->{offset};
diff --git a/charset.plp b/charset.plp
index 49f2d50..2257fb8 100644
--- a/charset.plp
+++ b/charset.plp
@@ -342,7 +342,7 @@ for my $row (@request) {
 					$cp == ord $glyph ? 'l4' :
 					$row->{parent} && $glyph eq
 						Encode::decode($row->{parent}, pack 'C', $cp) ? 'l3' :
-					!$class ? undef :
+					!defined $cell ? undef :
 					$visible->{$glyph} ? 'l2' :
 					'l1'
 				);
-- 
2.30.0