From b4882285c4989c91f117a04f4742e35d738d71ef Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Thu, 21 Nov 2013 20:36:34 -0500
Subject: [PATCH] Fix power module indexing

---
 Info/Layer3/Aruba.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Info/Layer3/Aruba.pm b/Info/Layer3/Aruba.pm
index 87a9fa41..a0a82f71 100644
--- a/Info/Layer3/Aruba.pm
+++ b/Info/Layer3/Aruba.pm
@@ -1285,7 +1285,7 @@ sub peth_power_status {
 
     my $peth_power_status = {};
     foreach my $i ( keys %$watts ) {
-        $peth_power_status->{"$i + $offset"} = 'on';
+        $peth_power_status->{$i + $offset} = 'on';
     }
     return $peth_power_status;
 }
@@ -1303,7 +1303,7 @@ sub peth_power_watts {
         my $total = $watts_total->{$i};
         next unless $total;
 
-        $peth_power_watts->{"$i + $offset"} = $total;
+        $peth_power_watts->{$i + $offset} = $total;
     }
     return $peth_power_watts;
 }