From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 24 Apr 2017 00:41:48 +0000 (+0200)
Subject: unicode: classify private use characters as unassigned
X-Git-Tag: v1.10~70
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/6b3439ac33bb88d613ac4a3670e14a2c673b3221

unicode: classify private use characters as unassigned

Technically in Unicode v6.0 but not safe to use, so l1 style is more
appropriate.
---

diff --git a/Shiar_Sheet/FormatChar.pm b/Shiar_Sheet/FormatChar.pm
index 71dadfe..c0a4cb0 100644
--- a/Shiar_Sheet/FormatChar.pm
+++ b/Shiar_Sheet/FormatChar.pm
@@ -136,7 +136,7 @@ sub cell {
 		if ($input =~ /[ -~]/) {
 			push @class, 'l5', 'u-ascii'; # ascii
 		}
-		elsif ($input =~ /^\p{in=6.0}+$/) {
+		elsif ($input =~ /^\p{in=6.0}+$/ and $input !~ /\p{Co}/) {
 			push @class, 'l2'; # in unicode 6.0
 		}
 		else {