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

In LLDP.pm don't create a variable in a conditional

Browse Source
This commit is contained in:
Oliver Gorwits
2014-11-14 00:28:14 +00:00
parent 046c15a074
commit 5454ab577e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Info/LLDP.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '3.20'; $VERSION = '3.21_001';
%MIBS = ( %MIBS = (
'LLDP-MIB' => 'lldpLocSysCapEnabled', 'LLDP-MIB' => 'lldpLocSysCapEnabled',
@@ -316,7 +316,7 @@ sub _lldp_addr_index {
my @oids = split( /\./, $idx ); my @oids = split( /\./, $idx );
my $index = join( '.', splice( @oids, 0, 3 ) ); my $index = join( '.', splice( @oids, 0, 3 ) );
my $proto = shift(@oids); my $proto = shift(@oids);
my $length = shift(@oids) if scalar @oids > 4; shift(@oids) if scalar @oids > 4; # $length
# IPv4 # IPv4
if ( $proto == 1 ) { if ( $proto == 1 ) {