X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/7ee7a878e0b44cd8306fb0ff35ddbcee216bd7d9..fa15370b8f30686099ea3cbb1c91ed140c9e70bc:/tools/mkdigraphlist diff --git a/tools/mkdigraphlist b/tools/mkdigraphlist index fa67418..a1bfbcd 100755 --- a/tools/mkdigraphlist +++ b/tools/mkdigraphlist @@ -153,6 +153,7 @@ for my $row (values %info) { # output perl code of hash # (assume no backslashes or curlies, so we can just q{} w/o escaping) +print "use utf8;\n"; print "+{\n"; printf '(map {$_=>0} qw{%s}),'."\n", join(' ', map { substr($_, 1, 1).substr($_, 0, 1) } sort keys %di