From 70c80051ca3f34ffd7d4f0dd670687fb4e7b433a Mon Sep 17 00:00:00 2001 From: Heuzef Date: Fri, 11 Oct 2019 14:56:15 +0200 Subject: [PATCH] Replace $bpc_info --- Check.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Check.pm b/Check.pm index b8589f8..d43103a 100644 --- 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;