--- db/prgsrc/eq/Attic/findequal.pl 2001/05/18 22:46:54 1.5 +++ db/prgsrc/eq/Attic/findequal.pl 2001/05/18 22:48:49 1.6 @@ -34,6 +34,11 @@ do "common.pl"; if (checktable('equalto')) {die "The table equalto exists. You must delete it first!\n"}; +if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; + +print "before mydo"; + + print "Creating equalto table...\n"; mydo("CREATE TABLE equalto (