[arch-commits] Commit in perl-authen-radius/repos/community-any (2 files)

[Sergej Pupykin]

    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+arch at 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;