![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mkdb.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
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]/) { |