percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-04-13 01:03:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

Changed eval { .. } do { ... } to eval { ... }; if ($EVAL_ERROR) { ... }

Browse Source
This commit is contained in:
Brian Fraser
2012-08-24 20:15:38 -03:00
parent 94a5d85212
commit 61341a8400
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
bin/pt-table-checksum
View File

@@ -7772,11 +7772,14 @@ sub main {
tbl => $tbl,
%crc_args
);
} or do {
warn ts("Skipping table $tbl->{db}.$tbl->{tbl} because "
. "$EVAL_ERROR\n");
return;
};
if ( $EVAL_ERROR ) {
warn ts("Skipping table $tbl->{db}.$tbl->{tbl} because "
. "$EVAL_ERROR\n");
return;
}
my $nibble_iter;
eval {
$nibble_iter = new OobNibbleIterator(