diff options
| author | ivan <ivan> | 2011-12-16 22:44:53 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-12-16 22:44:53 +0000 |
| commit | bd7c3e3b555f13ca3e2a119496c376c7c1b64c98 (patch) | |
| tree | d3e821f5ca78d3eb1b3c507dbeb073da268cbd08 /torrus/perllib/Torrus/DevDiscover/FTOS.pm | |
| parent | 9cdee88c5fbadc5c9ab61b8b04c20589a40e7277 (diff) | |
backport some fixes for "Using a hash as a reference is deprecated" warnings from torrus 2.01, so we can get the actual error messages we do want, RT#15536
Diffstat (limited to 'torrus/perllib/Torrus/DevDiscover/FTOS.pm')
| -rw-r--r-- | torrus/perllib/Torrus/DevDiscover/FTOS.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/torrus/perllib/Torrus/DevDiscover/FTOS.pm b/torrus/perllib/Torrus/DevDiscover/FTOS.pm index 82629e2df..90c18e59e 100644 --- a/torrus/perllib/Torrus/DevDiscover/FTOS.pm +++ b/torrus/perllib/Torrus/DevDiscover/FTOS.pm @@ -15,7 +15,7 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. -# $Id: FTOS.pm,v 1.1 2010-12-27 00:03:54 ivan Exp $ +# $Id: FTOS.pm,v 1.1.1.1.2.1 2011-12-16 22:43:56 ivan Exp $ # Jon Nistor <nistor at snickers.org> # Force10 Networks Real Time Operating System Software @@ -165,7 +165,7 @@ sub discover if( defined( $chassisSerial ) ) { $data->{'param'}{'comment'} = - %f10ChassisType->{$chassisSerial->{'chType'}} . + $f10ChassisType{$chassisSerial->{'chType'}} . ', Hw Serial#: ' . $chassisSerial->{'chSerialNumber'}; } else @@ -191,7 +191,7 @@ sub discover ( $dd->oiddef('chRpmCpuIndex') ) ) { my $cpuType = $dd->oiddef('chRpmCpuIndex') . "." . $ftosCPUidx; - my $cpuName = %f10CPU->{$ftosCpuTable->{$cpuType}}; + my $cpuName = $f10CPU{$ftosCpuTable->{$cpuType}}; Debug("FTOS::CPU index $ftosCPUidx, $cpuName"); |