--- db/prgsrc/eq/Attic/findequal.pl	2001/05/18 22:50:25	1.7
+++ db/prgsrc/eq/Attic/findequal.pl	2001/05/18 22:53:03	1.8
@@ -32,6 +32,17 @@ use POSIX qw (locale_h);
 
 do "common.pl";
 
+my ($thislocale);
+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";