Removed local $EVAL_ERROR, added a test using t/lib/samples/broken_tbl.frm, and updated all modules

This commit is contained in:
Brian Fraser
2012-10-30 19:02:03 -03:00
parent 35f5f8d1e4
commit ad4d69b3e2
5 changed files with 39 additions and 6 deletions

View File

@@ -3966,7 +3966,6 @@ sub _iterate_dbh {
}
while ( my $tbl = shift @{$self->{tbls}} ) {
local $EVAL_ERROR;
my $ddl = eval { $tp->get_create_table($dbh, $self->{db}, $tbl) };
if ( my $e = $EVAL_ERROR ) {
my $table_name = "$self->{db}.$tbl";