Return to mkdb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.14, 2002/01/08 01:08:08 | version 1.15, 2003/01/08 21:54:49 |
---|---|
Line 37 sub CheckTable | Line 37 sub CheckTable |
my ($TabName) = @_; | my ($TabName) = @_; |
my ($ans); | my ($ans); |
if (scalar(grep(/^$TabName$/, @tbl_list))) { | if (scalar(grep(/^$TabName$/i, @tbl_list))) { |
print "Table $TabName exists. Do you want to delete it? "; | print "Table $TabName exists. Do you want to delete it? "; |
$ans = <STDIN>; | $ans = <STDIN>; |
if ($ans =~ /[yY]/) { | if ($ans =~ /[yY]/) { |