From 3f024a52ad96a81aaa8d0746f8a86d0aca477b7b Mon Sep 17 00:00:00 2001
From: Quentin Garnier <qgarnier@merethis.com>
Date: Wed, 5 Feb 2014 12:05:47 +0100
Subject: [PATCH] Refs #5151 Minor error

---
 hardware/server/dell/openmanage/mode/components/cpu.pm         | 2 +-
 hardware/server/dell/openmanage/mode/components/fan.pm         | 2 +-
 hardware/server/dell/openmanage/mode/components/psu.pm         | 2 +-
 hardware/server/dell/openmanage/mode/components/temperature.pm | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/hardware/server/dell/openmanage/mode/components/cpu.pm b/hardware/server/dell/openmanage/mode/components/cpu.pm
index c258b389b..cc751e614 100644
--- a/hardware/server/dell/openmanage/mode/components/cpu.pm
+++ b/hardware/server/dell/openmanage/mode/components/cpu.pm
@@ -94,7 +94,7 @@ sub check {
         $key =~ /\.(\d+)$/;
         my $cpu_Index = $1;
         
-        my $cpu_Status = $result->{$_};
+        my $cpu_Status = $result->{$key};
         my $cpu_ManufacturerName = $result2->{$oid_cpuManufacturerName . '.' . $cpu_Index};
         my $cpu_StatusState = $result2->{$oid_cpuStatusState . '.' . $cpu_Index};
         my $cpu_CurrentSpeed = $result->{$oid_cpuCurrentSpeed . '.' . $cpu_Index};
diff --git a/hardware/server/dell/openmanage/mode/components/fan.pm b/hardware/server/dell/openmanage/mode/components/fan.pm
index 234ea0747..1bb17045f 100644
--- a/hardware/server/dell/openmanage/mode/components/fan.pm
+++ b/hardware/server/dell/openmanage/mode/components/fan.pm
@@ -77,7 +77,7 @@ sub check {
         my ($chassis_Index, $fan_Index) = ($1, $2);
         my $instance = $chassis_Index . '.' . $fan_Index;
         
-        my $fan_Status = $result->{$_};
+        my $fan_Status = $result->{$key};
         my $fan_Reading = $result2->{$oid_coolingDeviceReading . '.' . $instance};
         my $fan_LocationName = $result->{$oid_coolingDeviceLocationName . '.' . $instance};
 
diff --git a/hardware/server/dell/openmanage/mode/components/psu.pm b/hardware/server/dell/openmanage/mode/components/psu.pm
index 9e419ba38..a26b8122a 100644
--- a/hardware/server/dell/openmanage/mode/components/psu.pm
+++ b/hardware/server/dell/openmanage/mode/components/psu.pm
@@ -103,7 +103,7 @@ sub check {
         my ($chassis_Index, $psu_Index) = ($1, $2);
         my $instance = $chassis_Index . '.' . $psu_Index;
         
-        my $psu_Status = $result->{$_};
+        my $psu_Status = $result->{$key};
         my $psu_Type = $result2->{$oid_powerSupplyType . '.' . $instance};
         my $psu_SensorState = $result->{$oid__powerSupplySensorState . '.' . $instance};
         my $psu_ConfigurationErrorType = $result->{$oid__powerSupplyConfigurationErrorType . '.' . $instance};
diff --git a/hardware/server/dell/openmanage/mode/components/temperature.pm b/hardware/server/dell/openmanage/mode/components/temperature.pm
index 4a8b794f3..d909a4697 100644
--- a/hardware/server/dell/openmanage/mode/components/temperature.pm
+++ b/hardware/server/dell/openmanage/mode/components/temperature.pm
@@ -90,7 +90,7 @@ sub check {
         my ($chassis_Index, $temperature_Index) = ($1, $2);
         my $instance = $chassis_Index . '.' . $temperature_Index;
         
-        my $temperature_Status = $result->{$_};
+        my $temperature_Status = $result->{$key};
         my $temperature_Reading = $result2->{$oid_temperatureProbeReading . '.' . $instance};
         my $temperature_Type = $result2->{$oid_temperatureProbeType . '.' . $instance};
         my $temperature_LocationName = $result->{$oid_temperatureProbeLocationName . '.' . $instance};