--- db/prgsrc/eq/Attic/findequal.pl 2001/05/18 22:48:49 1.6 +++ db/prgsrc/eq/Attic/findequal.pl 2001/05/18 22:50:25 1.7 @@ -32,6 +32,11 @@ use POSIX qw (locale_h); do "common.pl"; +if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; + +print "before checktable"; + + if (checktable('equalto')) {die "The table equalto exists. You must delete it first!\n"}; if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};