summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
887c3bf)
Technically in Unicode v6.0 but not safe to use, so l1 style is more
appropriate.
if ($input =~ /[ -~]/) {
push @class, 'l5', 'u-ascii'; # ascii
}
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 {
push @class, 'l2'; # in unicode 6.0
}
else {