From f130701c5006246ad789798d21550465db6c6502 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Thu, 5 Mar 2015 04:50:28 +0100 Subject: [PATCH] font: load unicode data optionally --- tools/mkfontinfo | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/tools/mkfontinfo b/tools/mkfontinfo index 3be474c..e212d94 100755 --- a/tools/mkfontinfo +++ b/tools/mkfontinfo @@ -57,13 +57,16 @@ eval { 1; } or warn "Could not include count for html entities: $@"; -use Unicode::UCD 'charinfo'; -for my $code (0 .. 256**2) { - my $charinfo = charinfo($code) or next; - next if $charinfo->{category} =~ /^[MC]/; # ignore Marks and "other" Control chars - push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code - for qw( script category block ); -} +eval { + use Unicode::UCD 'charinfo'; + for my $code (0 .. 256**2) { + my $charinfo = charinfo($code) or next; + next if $charinfo->{category} =~ /^[MC]/; # ignore Marks and "other" Control chars + push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code + for qw( script category block ); + } + 1; +} or warn "Could not include unicode groups: $@"; for (values %charlist) { for my $chars (values %{$_}) { -- 2.30.0