Fixes as per Baron's review.

This commit is contained in:
Brian Fraser
2012-01-17 11:40:01 -03:00
parent 076c0d70b1
commit 05fec15473
6 changed files with 113 additions and 132 deletions

View File

@@ -129,7 +129,6 @@ sub clear_state {
sub compute_devs_in_group {
my ($self) = @_;
my $stats = $self->stats_for();
my $re = $self->device_regex();
return scalar grep {
# Got stats for that device, and it matches the devices re
$stats->{$_} && $self->_print_device_if($_)
@@ -163,6 +162,8 @@ sub _calc_stats_for_deltas {
}
}
return unless $delta_for && %{$delta_for};
my $in_progress = $delta_for->{ios_in_progress};
my $tot_in_progress = 0;
my $devs_in_group = $self->compute_devs_in_group() || 1;