| Subject: | Bug when running again undefined vendor |
| Date: | Fri, 31 May 2013 18:19:38 +0000 |
| To: | "bug-RadiusPerl [...] rt.cpan.org" <bug-RadiusPerl [...] rt.cpan.org> |
| From: | Jesse Cornwell <Jesse.Cornwell [...] iridium.com> |
Script from http://exchange.nagios.org/directory/Plugins/Network-Protocols/RADIUS/Perl-check-radius/details produces the following error when run against a radius server not found in the vendor dictionary.
Use of uninitialized value in hash element at /usr/lib/perl5/site_perl/5.8.8/Authen/Radius.pm line 435.
Fix is to modify line 434 to change it from:
my $vendor_name = $dict_name{$attr->{'Name'}}{'vendor'};
Change it to:
my $vendor_name = defined ($dict_name{$attr->{'Name'}}{'vendor'}) ?
$dict_name{$attr->{'Name'}}{'vendor'} : 'not defined';