Issue #121: setting value when value is NULL
This commit is contained in:
parent
37fbf86180
commit
f7f2754504
1 changed files with 3 additions and 0 deletions
|
@ -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;
|
||||||
|
|
Loading…
Reference in a new issue