+eval {
+ # read introducing unicode versions for known characters
+ my $agemap = do 'unicode-age.inc.pl' or die $@ || $!;
+ for my $chr (keys %info) {
+ my $version = $agemap->{ord $chr} or next;
+ $info{$chr}->{class}->{'u-v'.$version}++
+ }
+ 1;
+} or warn "Failed including unicode version data $@";
+