[arch-commits] Commit in perl-crypt-des/trunk (PKGBUILD perl-5.18.patch)

[Sergej Pupykin]

    Date: Monday, May 20, 2013 @ 13:38:25
  Author: spupykin
Revision: 91238

upgpkg: perl-crypt-des 2.05-6

upd

Added:
  perl-crypt-des/trunk/perl-5.18.patch
Modified:
  perl-crypt-des/trunk/PKGBUILD

-----------------+
 PKGBUILD        |   18 +++++++++++++-----
 perl-5.18.patch |   13 +++++++++++++
 2 files changed, 26 insertions(+), 5 deletions(-)

Modified: PKGBUILD
===================================================================
--- PKGBUILD	2013-05-20 11:37:58 UTC (rev 91237)
+++ PKGBUILD	2013-05-20 11:38:25 UTC (rev 91238)
@@ -3,22 +3,30 @@
 #Contributor: Pete Morris <pete dot morris at gmail dot com>
 pkgname=perl-crypt-des
 pkgver=2.05
-pkgrel=5
+pkgrel=6
 pkgdesc="Perl DES encryption module"
 arch=('i686' 'x86_64')
 url="http://search.cpan.org/~dparis/Crypt-DES"
 license=("GPL" "PerlArtistic")
 depends=('glibc')
-source=("http://www.cpan.org/authors/id/D/DP/DPARIS/Crypt-DES-$pkgver.tar.gz")
-md5sums=('a8a0bea7064e11d2af434f3e468c17bb')
+source=("http://www.cpan.org/authors/id/D/DP/DPARIS/Crypt-DES-$pkgver.tar.gz"
+	"perl-5.18.patch")
+md5sums=('a8a0bea7064e11d2af434f3e468c17bb'
+         '836d1a954281257efe00503d98b42dc8')
+
+prepare() {
+  cd $srcdir/Crypt-DES-$pkgver
+  patch -p1 <$srcdir/perl-5.18.patch
+}
+
 build() {
-  cd Crypt-DES-$pkgver
+  cd $srcdir/Crypt-DES-$pkgver
   PERL_MM_USE_DEFAULT=1 perl Makefile.PL INSTALLDIRS=vendor
   make
 }
 
 package() {
-  cd Crypt-DES-$pkgver
+  cd $srcdir/Crypt-DES-$pkgver
   make pure_install doc_install DESTDIR=${pkgdir}
   find $pkgdir -name '.packlist' -delete
   find $pkgdir -name '*.pod' -delete

Added: perl-5.18.patch
===================================================================
--- perl-5.18.patch	                        (rev 0)
+++ perl-5.18.patch	2013-05-20 11:38:25 UTC (rev 91238)
@@ -0,0 +1,13 @@
+diff -wbBur Crypt-DES-2.05.org/DES.xs Crypt-DES-2.05/DES.xs
+--- Crypt-DES-2.05.org/DES.xs	2005-12-08 18:52:50.000000000 +0300
++++ Crypt-DES-2.05/DES.xs	2013-05-20 15:35:58.668612530 +0400
+@@ -64,8 +64,7 @@
+ 			output = sv_newmortal();
+ 		output_len = 8;
+ 
+-		if (!SvUPGRADE(output, SVt_PV))
+-			croak("cannot use output argument as lvalue");
++		SvUPGRADE(output, SVt_PV);
+ 
+ 		perl_des_crypt(input, SvGROW(output, output_len), (i32 *)ks, enc_flag);
+