--- db/prgsrc/eq/Attic/findequal.pl	2001/05/18 22:53:03	1.8
+++ db/prgsrc/eq/Attic/findequal.pl	2001/08/04 11:41:50	1.10
@@ -33,26 +33,24 @@ use POSIX qw (locale_h);
 do "common.pl";
 
 my ($thislocale);
-if ($^O ~= /win/i) {
+if ($^O =~ /win/i) {
 	$thislocale = "Russian_Russia.20866";
 } else {
 	$thislocale = "ru_RU.KOI8-R";
 }
 POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
 if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
-}
+
 
 
 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"};
 
-print "before mydo";
 
 
 print "Creating equalto table...\n";