db/prgsrc/eq/findequal.pl - diff

Return to findequal.pl CVS log

Up to [Local Repository] / db / prgsrc / eq

-version 1.6, 2001/05/18 22:48:49
+version 1.8, 2001/05/18 22:53:03
  Line 32  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";
  if (checktable('equalto')) {die "The table equalto exists. You must delete it first!\n"};
  if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};