percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-09 07:30:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

pt-archiver corrected excessively frequent lag check

Browse Source
This commit is contained in:
frank-cizmich
2015-04-27 11:22:01 -03:00
parent 66c74af47b
commit 038b0431ef
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/pt-archiver
View File

@@ -6074,6 +6074,7 @@ sub main {
# This row is the first row fetched from each 'chunk'.
my $first_row = [ @$row ];
my $csv_row;
my $lag_count = 0;
ROW:
while ( # Quit if:
@@ -6305,7 +6306,8 @@ sub main {
}
# Check slave lag and wait if slave is too far behind.
if ( $lag_dbh ) {
# Do this check every 100 rows
if ( $lag_dbh && $lag_count++ % 100 == 0 ) {
my $lag = $ms->get_slave_lag($lag_dbh);
while ( !defined $lag || $lag > $o->get('max-lag') ) {
PTDEBUG && _d('Sleeping: slave lag is', $lag);