#!/usr/bin/env perl
-use 5.010;
-use strict;
+use 5.014;
use warnings;
use utf8;
no if $] >= 5.018, warnings => 'experimental::smartmatch';
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}++