- state $agemap = do 'unicode-age.inc.pl' or die $!;
- my $version = $agemap->{ord $input};
- if (!$version) {
- push @class, 'l1'; # no known unicode assignment
+ 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->{$codepoint};
+ push @class, $version ? 'l2' : 'l1';