Accepting request 180402 from devel:languages:perl

- add svupgrade.patch from RT#82943

OBS-URL: https://build.opensuse.org/request/show/180402
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Crypt-DES?expand=0&rev=21

perl-Crypt-DES.changes

@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Fri Jun 21 09:02:52 UTC 2013 - coolo@suse.com
+
+- add svupgrade.patch from RT#82943
+
 -------------------------------------------------------------------
 Fri Nov 18 11:07:16 UTC 2011 - coolo@suse.com
 

perl-Crypt-DES.spec

@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Crypt-DES
 #
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -15,19 +15,18 @@
 # Please submit bugfixes or comments via http://bugs.opensuse.org/
 #
 
-# norootforbuild
-
 
 Name:           perl-Crypt-DES
 %define cpan_name Crypt-DES
 Summary:        Perl DES encryption module
-Version:        2.05
-Release:        144
 License:        Artistic-1.0
 Group:          Development/Libraries/Perl
+Version:        2.05
+Release:        0
 Url:            http://search.cpan.org/dist/Crypt-DES/
 #Source:         http://www.cpan.org/authors/id/D/DP/DPARIS/Crypt-DES-2.05.tar.gz
 Source:         %{cpan_name}-%{version}.tar.gz
+Patch0:         svupgrade.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 %{perl_requires}
 BuildRequires:  perl
@@ -49,6 +48,7 @@ Authors:
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS"

svupgrade.patch

@@ -0,0 +1,21 @@
+Description: update for SvUPGRADE()
+Origin: CPAN RT
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=82943
+Bug-Debian: http://bugs.debian.org/708468
+Forwarded: not-needed
+Author: Zefram <zefram [...] fysh.org>
+Reviewed-by: gregor herrmann <gregoa@debian.org>
+Last-Update: 2013-05-17
+
+--- a/DES.xs
++++ b/DES.xs
+@@ -64,8 +64,7 @@
+ 			output = sv_newmortal();
+ 		output_len = 8;
+ 
+-		if (!SvUPGRADE(output, SVt_PV))
+-			croak("cannot use output argument as lvalue");
++		(void) SvUPGRADE(output, SVt_PV);
+ 
+ 		perl_des_crypt(input, SvGROW(output, output_len), (i32 *)ks, enc_flag);
+