record('WARNING');
push @{$status{'unknown transfer speed'}}, $drive;
} elsif (ref($expected) eq 'ARRAY') {
- if (scalar(grep { $value{$key} eq $_ } @$expected) == 0) {
+ if (scalar(grep { uc($value{$key}) eq uc($_) } @$expected) == 0) {
record('WARNING');
push @{$status{'bad transfer speed'}}, $drive."(".$value{$key}.")";
};
- } elsif ($value{$key} ne $expected) {
+ } elsif (uc($value{$key}) ne uc($expected)) {
record('WARNING');
push @{$status{'bad transfer speed'}}, $drive."(".$value{$key}.")";
};
[ Peter Palfrader ]
* dsa-check-packages: work better with weird multi-arch cases.
* dsa-check-hpacucli: print errors to stdout so that nrpe can read it.
+ * dsa-check-hpacucli: new hpacucli changed case of transfer speed. Upcase
+ all before comparing.
-- Stephen Gran <sgran@debian.org> Sat, 29 Dec 2012 13:28:47 +0000