# output perl code of hash
# (assume no backslashes or curlies, so we can just q{} w/o escaping)
print "{\n";
printf "q{%s}=>[%s],\n", $_, join(',',
$di{$_}, # glyph code point
# output perl code of hash
# (assume no backslashes or curlies, so we can just q{} w/o escaping)
print "{\n";
printf "q{%s}=>[%s],\n", $_, join(',',
$di{$_}, # glyph code point
- $charinfo{$_} # optional additional arguments
- ? map {"'$_'"} @{ $charinfo{$_} }{qw/name category script/}
+ $info{$_} # optional additional arguments
+ ? map {"'$_'"} @{ $info{$_} }{qw/name category script/}