# (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;
# (c) 1997--2001 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
#
-open(I, "unicode/UnicodeData.txt") || die "Unable to open UniCode data file";
+open(I, "unidata/UnicodeData.txt") || die "Unable to open UniCode data file";
open(C, ">misc/u-cat") || die "cat file open";
open(U, ">misc/u-upper") || die "upper file open";
open(L, ">misc/u-lower") || die "lower file open";
print "};\n\n";
print STDERR "UniData file...\n";
-open (U, "unicode/UnicodeData.txt") || die "No UnicodeData file";
+open (U, "unidata/UnicodeData.txt") || die "No UnicodeData file";
while (<U>) {
chomp;
($num,$name,$_,$_,$_,$exp) = split /;/;
# (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>) {
chomp;
($num,$name,$cat,$_,$_,$exp) = split /;/;
}
close UNI;
-open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
+open (UNI, "unidata/UnicodeData.txt") || die "No Unicode Data File";
while (<UNI>) {
chomp;
($num,$name,$cat,$_,$_,$exp) = split /;/;