bgetw() returns int instead of word, so it's possible

[libucw.git] / charset / misc / mkunacc

diff --git a/charset/misc/mkunacc b/charset/misc/mkunacc
index e8f9528fb2815a0a7179bb23999ed7d4e4c4e28e..8853b7e57abc4ed16d042e3a610d9611c6bb4219 100644 (file)
--- a/charset/misc/mkunacc
+++ b/charset/misc/mkunacc
@@ -4,7 +4,7 @@
 #  (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
 #
 
-open (UNI, "/tmp/unicode") || die "No Unicode Data File";
+open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
 while (<UNI>) {
     chomp;
     ($num,$name,$cat,$_,$_,$exp) = split /;/;
@@ -13,10 +13,11 @@ while (<UNI>) {
 }
 close UNI;
 
-open (UNI, "/tmp/unicode") || die "No Unicode Data File";
+open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
 while (<UNI>) {
     chomp;
     ($num,$name,$cat,$_,$_,$exp) = split /;/;
+    $num =~ /^....$/ || next;
     if ($exp ne "") {
        $exp =~ s/^<.*> *//g;
        $good = 1;