135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bug with using last inside try{}

Browse Source
This commit is contained in:
Oliver Gorwits
2012-12-20 20:52:47 +00:00
parent b41115f173
commit e847de5baf
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Netdisco/lib/App/Netdisco/Util/Connect.pm
View File

@@ -128,15 +128,17 @@ sub snmp_connect {
); );
my $info = undef; my $info = undef;
my $last_comm = 0;
COMMUNITY: foreach my $c (@{ setting('community_rw') || []}) { COMMUNITY: foreach my $c (@{ setting('community_rw') || []}) {
try { try {
$info = SNMP::Info->new(%snmp_args, Community => $c); $info = SNMP::Info->new(%snmp_args, Community => $c);
last COMMUNITY if ( ++$last_comm if (
$info $info
and (not defined $info->error) and (not defined $info->error)
and length $info->uptime and length $info->uptime
); );
}; };
last COMMUNITY if $last_comm;
} }
return $info; return $info;