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