Date: Friday, February 13, 2015 @ 17:02:40 Author: spupykin Revision: 127675
archrelease: copy trunk to community-any Added: perl-authen-radius/repos/community-any/undef-warn-fix.patch (from rev 127669, perl-authen-radius/trunk/undef-warn-fix.patch) Deleted: perl-authen-radius/repos/community-any/PKGBUILD ----------------------+ PKGBUILD | 28 ---------------------------- undef-warn-fix.patch | 14 ++++++++++++++ 2 files changed, 14 insertions(+), 28 deletions(-) Deleted: PKGBUILD =================================================================== --- PKGBUILD 2015-02-13 16:00:34 UTC (rev 127674) +++ PKGBUILD 2015-02-13 16:02:40 UTC (rev 127675) @@ -1,28 +0,0 @@ -# $Id$ -# Maintainer: Sergej Pupykin <pupykin.s+a...@gmail.com> - -pkgname=perl-authen-radius -pkgver=0.24 -pkgrel=1 -pkgdesc="perl radius client" -arch=('any') -url="http://search.cpan.org/dist/Authen-Radius/" -#url="http://search.cpan.org/dist/RadiusPerl" -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') - -build() { - cd $srcdir/Authen-Radius-$pkgver - PERL_MM_USE_DEFAULT=1 perl Makefile.PL INSTALLDIRS=vendor - make -} - -package() { - cd $srcdir/Authen-Radius-$pkgver - make install DESTDIR=$pkgdir - find $pkgdir -name '.packlist' -delete - find $pkgdir -name '*.pod' -delete -} Copied: perl-authen-radius/repos/community-any/undef-warn-fix.patch (from rev 127669, perl-authen-radius/trunk/undef-warn-fix.patch) =================================================================== --- undef-warn-fix.patch (rev 0) +++ undef-warn-fix.patch 2015-02-13 16:02:40 UTC (rev 127675) @@ -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;