Replace $bpc_info

5 years ago · 70c80051ca
parent 3161d1a06a
commit 70c80051ca
1 changed files with 2 additions and 2 deletions
--- a/Check.pm
+++ b/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;