--- db/prgsrc/updateRS1.pl 2001/10/31 03:07:29 1.2 +++ db/prgsrc/updateRS1.pl 2001/12/05 00:17:53 1.4 @@ -37,6 +37,7 @@ cicles_number=1. use locale; use DBI; use POSIX qw (locale_h); +use lib "../lib"; use chgkfiles; use dbchgk; open (STDERR,">errors"); @@ -85,6 +86,7 @@ foreach $d(@dictionaries) chomp; s/\s*$//; ($aa,$b)=split(/\//); + $aa=~tr/£³/Ċċ/; $a= uc $aa; $words{$a}.=$b || "!"; }