version 1.5, 2001/05/18 22:46:54
|
version 1.7, 2001/05/18 22:50:25
|
Line 32 use POSIX qw (locale_h);
|
Line 32 use POSIX qw (locale_h);
|
|
|
do "common.pl"; |
do "common.pl"; |
|
|
|
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 ( |