|
|
@ -87,6 +87,7 @@ sub action |
|
|
|
my $sizes = new Statistics::Descriptive::Full; |
|
|
|
my $sizes = new Statistics::Descriptive::Full; |
|
|
|
|
|
|
|
|
|
|
|
foreach my $backup ( @Backups ) { |
|
|
|
foreach my $backup ( @Backups ) { |
|
|
|
|
|
|
|
my $idBackup = $Backups[@Backups-1]->{num} if ( @Backups ); |
|
|
|
# Skip partial or active backups |
|
|
|
# Skip partial or active backups |
|
|
|
next if ( $backup->{type} !~ m/^full|incr$/ ); |
|
|
|
next if ( $backup->{type} !~ m/^full|incr$/ ); |
|
|
|
# Push all the sizes in our data set to compute avg sizes |
|
|
|
# Push all the sizes in our data set to compute avg sizes |
|
|
|