Replace $bpc_info

master
Heuzef 5 years ago
parent 3161d1a06a
commit 70c80051ca
  1. 4
      Check.pm

@ -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)
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_median} = int $sizes->median;
$check->{new_size_q1} = eval { int $sizes->quantile(1) } || 0;

Loading…
Cancel
Save