+eval {
+ my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
+ for (values %$tables) {
+ for (values %$_) {
+ for (@$_) {
+ length $_ == 1 or next; # ignore meta values
+ s/\\//; # unescape
+ $info{$_} //= {};
+ }
+ }
+ }
+ 1;
+} or warn "Failed reading unicode tables: $@";
+