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

eval the critical parts. Use specific exit codes. Add --run-time, --progress, --continue-on-error, and --defaults-file. Uncomment the version check call. Update the docs.

Browse Source
This commit is contained in:
Daniel Nichter
2013-03-11 13:28:41 -06:00
parent 270962ad54
commit 2463344060
3 changed files with 666 additions and 175 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
lib/UpgradeResults.pm
View File

@@ -25,6 +25,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
use Data::Dumper;
use Digest::MD5 qw(md5_hex);
use Lmo;
@@ -197,29 +198,37 @@ sub _new_class {
sub report_unreported_classes {
my ($self) = @_;
my $success = 1;
my $classes = $self->classes;
foreach my $id ( sort keys %$classes ) {
my $class = $classes->{$id};
my $reason;
if ( !scalar @{$class->{failures}} ) {
$reason = 'it has diffs';
eval {
my $class = $classes->{$id};
my $reason;
if ( !scalar @{$class->{failures}} ) {
$reason = 'it has diffs';
}
elsif ( scalar @{$class->{errors}}
|| scalar @{$class->{query_time_diffs}}
|| scalar @{$class->{warning_diffs}}
|| scalar @{$class->{row_diffs}} ) {
$reason = 'it has SQL errors and diffs';
}
else {
$reason = 'it has SQL errors'
}
$self->report_class(
class => $class,
reasons => ["$reason, but hasn't been reported yet"],
);
$class = { reported => 1 };
};
if ( $EVAL_ERROR ) {
$success = 1;
warn Dumper($classes->{$id});
warn "Error reporting query class $id: $EVAL_ERROR";
}
elsif ( scalar @{$class->{errors}}
|| scalar @{$class->{query_time_diffs}}
|| scalar @{$class->{warning_diffs}}
|| scalar @{$class->{row_diffs}} ) {
$reason = 'it has SQL errors and diffs';
}
else {
$reason = 'it has SQL errors'
}
$self->report_class(
class => $class,
reasons => ["$reason, but hasn't been reported yet"],
);
$class = { reported => 1 };
}
return;
return $success;
}
sub report_if_ready {