X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b5b3537710ed9f73e1c867e0cc27d50439eaf4cd..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