Date: Friday, February 13, 2015 @ 16:59:55 Author: spupykin Revision: 127669
upgpkg: perl-authen-radius 0.24-2 upd Added: perl-authen-radius/trunk/undef-warn-fix.patch Modified: perl-authen-radius/trunk/PKGBUILD ----------------------+ PKGBUILD | 13 ++++++++++--- undef-warn-fix.patch | 14 ++++++++++++++ 2 files changed, 24 insertions(+), 3 deletions(-) Modified: PKGBUILD =================================================================== --- PKGBUILD 2015-02-13 15:52:07 UTC (rev 127668) +++ PKGBUILD 2015-02-13 15:59:55 UTC (rev 127669) @@ -3,7 +3,7 @@ pkgname=perl-authen-radius pkgver=0.24 -pkgrel=1 +pkgrel=2 pkgdesc="perl radius client" arch=('any') url="http://search.cpan.org/dist/Authen-Radius/" @@ -11,9 +11,16 @@ license=('GPL' 'PerlArtistic') depends=('perl-data-hexdump>=0.02') options=('!emptydirs') -source=(http://search.cpan.org/CPAN/authors/id/P/PO/PORTAONE/Authen-Radius-$pkgver.tar.gz) -md5sums=('35541556f8ec48bf0b60f2e8d284957f') +source=(http://search.cpan.org/CPAN/authors/id/P/PO/PORTAONE/Authen-Radius-$pkgver.tar.gz + undef-warn-fix.patch) +md5sums=('35541556f8ec48bf0b60f2e8d284957f' + '7a4bf593c8ab0e4631e74c6637605066') +prepare() { + cd $srcdir/Authen-Radius-$pkgver + patch -p1 <$srcdir/undef-warn-fix.patch +} + build() { cd $srcdir/Authen-Radius-$pkgver PERL_MM_USE_DEFAULT=1 perl Makefile.PL INSTALLDIRS=vendor Added: undef-warn-fix.patch =================================================================== --- undef-warn-fix.patch (rev 0) +++ undef-warn-fix.patch 2015-02-13 15:59:55 UTC (rev 127669) @@ -0,0 +1,14 @@ +diff --git a/Radius.pm b/Radius.pm +index db56f23..b88db32 100644 +--- a/Radius.pm ++++ b/Radius.pm +@@ -436,7 +436,8 @@ sub vendorID ($) { + return defined $dict_vendor_name{ $attr->{'Vendor'} }{'id'} ? $dict_vendor_name{ $attr->{'Vendor'} }{'id'} : int($attr->{'Vendor'}); + } else { + # look up vendor by attribute name +- my $vendor_name = $dict_name{$attr->{'Name'}}{'vendor'}; ++ my $vendor_name = defined ($dict_name{$attr->{'Name'}}{'vendor'}) ? ++ $dict_name{$attr->{'Name'}}{'vendor'} : 'not defined'; + my $vendor_id = defined ($dict_vendor_name{$vendor_name}{'id'}) ? + $dict_vendor_name{$vendor_name}{'id'} : 'not defined'; + return $vendor_id;