diff --git a/lib/SNMP/Info/Layer3/Raisecom.pm b/lib/SNMP/Info/Layer3/Raisecom.pm index 4662b02c..86a1e30d 100755 --- a/lib/SNMP/Info/Layer3/Raisecom.pm +++ b/lib/SNMP/Info/Layer3/Raisecom.pm @@ -16,10 +16,6 @@ our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE); $VERSION = '3.70-135'; -# This will be filled in with the device's index into the EntPhysicalEntry -# table by the serial() function. -our $index = undef; - %MIBS = ( %SNMP::Info::Layer3::MIBS, ); %GLOBALS = ( @@ -89,7 +85,7 @@ sub model { elsif ($id =~ /41752\.26\.502/) { return $obj->model_oid_41752 . ' HW:' . $obj->hvver; } - return $obj->id(); + return $obj->SUPER::model(); } sub serial { @@ -108,6 +104,7 @@ sub hvver { $obj->hw_oid_41752 =~ /.*\sversion\s(.*)/; return $1; } + return $obj->SUPER::hvver() } 1; __END__ @@ -155,15 +152,11 @@ These are methods that return scalar value from SNMP =item $obj->vendor() -Returns 'adtran' +Returns 'raisecom' =item $obj->os() -Returns 'caos' - -=item $obj->layers() - -Ensures that layer two is reported, at least. +Returns 'ros' or 'rcios' =item $obj->os_ver()