X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6705ca954ca9bf786175106c6878fb4d94354a31..70e3b473d744176d9692900114c8beefc0527150:/Shiar_Sheet/FormatChar.pm

diff --git a/Shiar_Sheet/FormatChar.pm b/Shiar_Sheet/FormatChar.pm
index d3926bc..35f6076 100644
--- a/Shiar_Sheet/FormatChar.pm
+++ b/Shiar_Sheet/FormatChar.pm
@@ -80,12 +80,13 @@ sub cell {
 
 		$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}*$/) {
@@ -120,7 +121,6 @@ sub cell {
 			}
 		}
 		else {
-			my $codepoint = ord(substr $input, 0, 1);
 			if ($codepoint <= 0xFF) {
 				push @class, 'l3', 'u-lat1';  # latin1
 			}