|
version 1.5, 2001/05/18 22:46:54
|
version 1.8, 2001/05/18 22:53:03
|
|
Line 32 use POSIX qw (locale_h);
|
Line 32 use POSIX qw (locale_h);
|
| |
|
| do "common.pl"; |
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 (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"; |
print "Creating equalto table...\n"; |
| |
|
| mydo("CREATE TABLE equalto ( |
mydo("CREATE TABLE equalto ( |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to findequal.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc / eq