# (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
#
-open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
+open (UNI, "unidata/UnicodeData.txt") || die "No Unicode Data File";
while (<UNI>) {
($num,$name) = split /;/;
$name{$num} = $name;