$input =~ s/^\\//; # escaped char
($cell, $title, my $class, $mnem, $entity) = $self->glyphs_html($input);
+ my $codepoint = ord(substr $input, 0, 1);
if ($self->{style} eq 'univer') {
if ($input =~ /\p{age=unassigned}/) {
# check include for assignments after unicode 6.0 (perl v5.14)
state $agemap = do 'unicode-age.inc.pl';
- my $version = $agemap->{ord $input};
+ my $version = $agemap->{$codepoint};
push @class, $version ? 'l2' : 'l1';
}
elsif ($input =~ /^\p{in=1.1}*$/) {
}
}
else {
- my $codepoint = ord(substr $input, 0, 1);
if ($codepoint <= 0xFF) {
push @class, 'l3', 'u-lat1'; # latin1
}