linux_mirrors/check_lsi_raid
0
0
Fork 0
mirror of https://github.com/thomas-krenn/check_lsi_raid.git synced 2026-02-21 11:18:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

Dereference hash refs for use with keys

Browse Source 
Using keys on an unblessed ref will be deprecated in further Perl
versions. Some Perl versions already generate warnings if keys is
used on an unblessed ref.
This commit is contained in:
Georg Schönberger
2014-12-03 07:56:27 +01:00
parent 39e518db4d
commit 487dba40f0
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
check_lsi_raid
View File

@@ -1091,7 +1091,7 @@ sub getVerboseString{
$verb_str .= "LD information:\n";
foreach my $LD (@LDDevicesToCheck){
$verb_str .= "\t- ".$LD->{'ld'}.":\n";
foreach my $key (sort (keys($LD))){
foreach my $key (sort (keys(%{$LD}))){
$verb_str .= "\t\t- ".$key.'='.$LD->{$key}."\n";
}
foreach my $LDinit (@LDInitToCheck){
@@ -1103,7 +1103,7 @@ sub getVerboseString{
$verb_str .= "PD information:\n";
foreach my $PD (@PDDevicesToCheck){
$verb_str .= "\t- ".$PD->{'pd'}.":\n";
foreach my $key (sort (keys($PD))){
foreach my $key (sort (keys(%{$PD}))){
$verb_str .= "\t\t- ".$key.'='.$PD->{$key}."\n";
}
foreach my $PDinit (@PDInitToCheck){
@@ -1123,7 +1123,7 @@ sub getVerboseString{
$key =~ /^(\w+)_\w+$/;
my $type = $1;
$verb_str .= $type." information:\n";
foreach my $stat (sort (keys($statusLevel_a[3]))){
foreach my $stat (sort (keys(%{$statusLevel_a[3]}))){
if($stat =~ /^$type.+$/){
$verb_str .= "\t\t- $stat=".$statusLevel_a[3]->{$stat}."\n";
}