percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-04-29 01:02:47 +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
bin/pt-table-checksum
+5 -2
View File
@@ -7772,11 +7772,14 @@ sub main {
tbl => $tbl, tbl => $tbl,
%crc_args %crc_args
); );
} or do { };
if ( $EVAL_ERROR ) {
warn ts("Skipping table $tbl->{db}.$tbl->{tbl} because " warn ts("Skipping table $tbl->{db}.$tbl->{tbl} because "
. "$EVAL_ERROR\n"); . "$EVAL_ERROR\n");
return; return;
}; }
my $nibble_iter; my $nibble_iter;
eval { eval {
$nibble_iter = new OobNibbleIterator( $nibble_iter = new OobNibbleIterator(