mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-28 08:51:44 +00:00
Handle undef values in reports, and eval all reports.
This commit is contained in:
@@ -256,7 +256,7 @@ sub get_report {
|
||||
if ( $self->{underline_header} ) {
|
||||
my @underlines = map { '=' x $_->{print_width} } @{$self->{cols}};
|
||||
push @lines, $self->_truncate_line(
|
||||
sprintf($fmt, @underlines),
|
||||
sprintf($fmt, map { $_ || '' } @underlines),
|
||||
mark => '',
|
||||
);
|
||||
}
|
||||
@@ -267,7 +267,7 @@ sub get_report {
|
||||
my @vals = map {
|
||||
defined $_ ? $_ : $self->{cols}->[$i++]->{undef_value}
|
||||
} @$vals;
|
||||
my $line = sprintf($fmt, @vals);
|
||||
my $line = sprintf($fmt, map { defined $_ ? $_ : '' } @vals);
|
||||
if ( $self->{extend_right} ) {
|
||||
$line;
|
||||
}
|
||||
|
@@ -64,7 +64,7 @@ sub event_report {
|
||||
my $line = sprintf(
|
||||
'# Query %d: ID 0x%s at byte %d ',
|
||||
$rank || 0,
|
||||
make_checksum($where),
|
||||
make_checksum($where) || '0x0',
|
||||
0, # $sample->{pos_in_log} || 0
|
||||
);
|
||||
$line .= ('_' x (LINE_LENGTH - length($line)));
|
||||
@@ -89,7 +89,7 @@ sub event_report {
|
||||
my @diffs = grep { $_ =~ m/^different_/ } keys %$class;
|
||||
foreach my $diff ( sort @diffs ) {
|
||||
push @result,
|
||||
sprintf $fmt, ' ' . make_label($diff), $class->{$diff}->{sum};
|
||||
sprintf $fmt, ' ' . (make_label($diff) || ''), ($class->{$diff}->{sum} || 0);
|
||||
}
|
||||
|
||||
# Side-by-side hosts report.
|
||||
|
Reference in New Issue
Block a user