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

Use new style Retry in CopyRowsInsertSelect.pm.

Browse Source
This commit is contained in:
Daniel Nichter
2011-11-02 10:05:48 -06:00
parent 348fe17038
commit 2e72da5717
1 changed files with 16 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lib/CopyRowsInsertSelect.pm
View File

@@ -85,24 +85,23 @@ sub copy {
wait => sub { sleep 1; }, wait => sub { sleep 1; },
tries => 3, tries => 3,
try => sub { try => sub {
my ( %args ) = @_;
eval {
$dbh->do($sql); $dbh->do($sql);
};
if ( $EVAL_ERROR ) {
MKDEBUG && _d($EVAL_ERROR);
if ( $EVAL_ERROR =~ m/Lock wait timeout exceeded/ ) {
$error = $EVAL_ERROR;
if ( $args{tryno} > 1 ) {
$msg->("Lock wait timeout exceeded; retrying $sql");
}
return; return;
}
die $EVAL_ERROR;
}
return 1;
}, },
on_failure => sub { die $error; }, fail => sub {
my (%args) = @_;
my $error = $args{error};
MKDEBUG && _d($error);
if ( $error =~ m/Lock wait timeout exceeded/ ) {
$msg->("Lock wait timeout exceeded; retrying $sql");
return 1; # call wait, call try
}
return 0; # call final_fail
},
final_fail => sub {
my (%args) = @_;
die $args{error};
},
); );
} }