From 5454ab577e8979d7bc7a92173c1ea18d40e2eb35 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Fri, 14 Nov 2014 00:28:14 +0000
Subject: [PATCH] In LLDP.pm don't create a variable in a conditional

---
 Info/LLDP.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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