unicode: classify private use characters as unassigned
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 24 Apr 2017 00:41:48 +0000 (02:41 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 29 May 2017 16:51:17 +0000 (18:51 +0200)
Technically in Unicode v6.0 but not safe to use, so l1 style is more
appropriate.

Shiar_Sheet/FormatChar.pm

index 71dadfe..c0a4cb0 100644 (file)
@@ -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 {