[arch-commits] Commit in perl-authen-radius/trunk (PKGBUILD undef-warn-fix.patch)

[Sergej Pupykin]

    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;