percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-22 19:04:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

Implement retry_on_error for Pipeline processes. Retry iteration proc twice, then fail completely. Fix mirror.t.

Browse Source
This commit is contained in:
Daniel Nichter
2012-05-23 16:07:05 -06:00
parent 74b1caa241
commit 491c076e75
5 changed files with 105 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lib/Pipeline.pm
View File

@@ -71,6 +71,9 @@ sub add {
push @{$self->{procs}}, $process;
push @{$self->{names}}, $name;
if ( my $n = $args{retry_on_error} ) {
$self->{retries}->{$name} = $n;
}
if ( $self->{instrument} ) {
$self->{instrumentation}->{$name} = { time => 0, calls => 0 };
}
@@ -156,10 +159,28 @@ sub execute {
}
};
if ( $EVAL_ERROR ) {
warn "Pipeline process $procno ("
. ($self->{names}->[$procno] || "")
. ") caused an error: $EVAL_ERROR";
die $EVAL_ERROR unless $self->{continue_on_error};
my $name = $self->{names}->[$procno] || "";
my $msg = "Pipeline process " . ($procno + 1)
. " ($name) caused an error: "
. $EVAL_ERROR;
if ( defined $self->{retries}->{$name} ) {
my $n = $self->{retries}->{$name};
if ( $n ) {
warn $msg . "Will retry pipeline process $procno ($name) "
. "$n more " . ($n > 1 ? "times" : "time") . ".\n";
$self->{retries}->{$name}--;
}
else {
die $msg . "Terminating pipeline because process $procno "
. "($name) caused too many errors.\n";
}
}
elsif ( !$self->{continue_on_error} ) {
die $msg;
}
else {
warn $msg;
}
}
}