percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-06 20:38:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix --replicate-check.

Browse Source
This commit is contained in:
Daniel Nichter
2011-09-13 11:33:39 -06:00
parent 8daf767af5
commit c7ff1cfd6a
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
bin/pt-table-checksum
View File

@@ -4790,6 +4790,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
use List::Util qw(max);
use Time::HiRes qw(sleep time);
use Data::Dumper;
$Data::Dumper::Indent = 1;
@@ -4932,7 +4933,13 @@ sub main {
%common_modules,
);
}
return $exit_status unless $o->get('recheck');
if ( !$o->get('recheck') ) {
$dbh->disconnect();
foreach my $host ( @$slaves ) {
$host->{dbh}->disconnect();
}
return $exit_status;
}
}
# ########################################################################
@@ -5537,7 +5544,7 @@ sub print_inconsistent_tbls {
}
my ($dsn, $tbls, $o, $dp) = @args{@required_args};
my @headers = qw(DB TBL CHUNK CNT_DIFF CRC_DIFF BOUNDARIES);
my @headers = qw(db tbl chunk cnt_diff crc_diff boundaries);
print "Differences on " . $dp->as_string($dsn, [qw(h P F)]) . "\n";
my $max_db = max(5, map { length($_->{db}) } @$tbls);
my $max_tbl = max(5, map { length($_->{tbl}) } @$tbls);