--- db/prgsrc/findequal.pl	2001/12/03 19:54:48	1.1
+++ db/prgsrc/findequal.pl	2003/02/02 22:02:03	1.3
@@ -1,6 +1,4 @@
-#!perl 
-
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 =head1 NAME
 
@@ -47,13 +45,14 @@ if ((uc 'Á') ne 'á') {die "!Koi8-r local
 
 
 
-if (checktable('equalto')) {die "The table equalto exists. You must delete it first!\n"};
+#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 "Creating equalto table...\n";
+	mydo("DROP TABLE IF EXISTS equalto");
 
 	mydo("CREATE TABLE equalto (
 		First   INT UNSIGNED NOT NULL PRIMARY KEY, KEY FirstKey (First),