Issue #121: setting value when value is NULL

This commit is contained in:
Jean-Marie RENOUARD 2015-09-02 14:48:48 +02:00
parent 37fbf86180
commit f7f2754504

View file

@ -1619,7 +1619,10 @@ sub check_storage_engines {
# Parse through the table list to generate storage engine counts/statistics # Parse through the table list to generate storage engine counts/statistics
$fragtables = 0; $fragtables = 0;
foreach my $tbl (@tblist) { foreach my $tbl (@tblist) {
debugprint "Data dump ". Dumper (@$tbl);
my ( $engine, $size, $datafree ) = @$tbl; my ( $engine, $size, $datafree ) = @$tbl;
$size=0 if $size eq 'NULL';
$datafree=0 if $datafree eq 'NULL';
if ( defined $enginestats{$engine} ) { if ( defined $enginestats{$engine} ) {
$enginestats{$engine} += $size; $enginestats{$engine} += $size;
$enginecount{$engine} += 1; $enginecount{$engine} += 1;