|
|
@ -138,9 +138,9 @@ sub action |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
# Ignore the last backup if it's not full or incr (which means it's either partial or active) |
|
|
|
# Ignore the last backup if it's not full or incr (which means it's either partial or active) |
|
|
|
my $i = ( $bpc_info[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2; |
|
|
|
my $i = ( $Backups[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2; |
|
|
|
|
|
|
|
|
|
|
|
$check->{new_size} = $bpc_info[$i]->{sizeNew}; |
|
|
|
$check->{new_size} = $Backups[$i]->{sizeNew}; |
|
|
|
$check->{new_size_avg} = int $sizes->mean; |
|
|
|
$check->{new_size_avg} = int $sizes->mean; |
|
|
|
$check->{new_size_median} = int $sizes->median; |
|
|
|
$check->{new_size_median} = int $sizes->median; |
|
|
|
$check->{new_size_q1} = eval { int $sizes->quantile(1) } || 0; |
|
|
|
$check->{new_size_q1} = eval { int $sizes->quantile(1) } || 0; |
|
|
|