135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

#294 snmp::info should show full class used

Browse Source
This commit is contained in:
Oliver Gorwits
2019-04-20 11:28:48 +01:00
parent 77fa064db5
commit c8f686b7aa
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/SNMP/Info.pm
View File

@@ -1388,7 +1388,15 @@ sub new {
$new_obj->{snmp_comm} = $sess->{Community} || $args{Community} || 'public';
$new_obj->{snmp_user} = $sess->{SecName} || $args{SecName} || 'initial';
return $auto_specific ? $new_obj->specify() : $new_obj;
my $info = $auto_specific ? $new_obj->specify() : $new_obj;
if ( $info->debug() > 1 ) {
require mro;
print STDERR (ref $info) ." has resolution order: \n";
print STDERR " $_\n" foreach @{ mro::get_linear_isa( ref $info ) };
}
return $info;
}
=item update()
@@ -2208,6 +2216,7 @@ sub specify {
$self->debug()
and print "SNMP::Info::specify() - Changed Class to $device_type.\n";
return $sub_obj;
}