From 3bd4c18c449c6a1b76941573f8a35bcfd092a147c086fcb039deb17819bc90e5 Mon Sep 17 00:00:00 2001
From: Stephan Kulow <coolo@suse.com>
Date: Fri, 21 Jun 2013 09:04:05 +0000
Subject: [PATCH] - add svupgrade.patch from RT#82943

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Crypt-DES?expand=0&rev=18
---
 perl-Crypt-DES.changes |  5 +++++
 perl-Crypt-DES.spec    | 12 ++++++------
 svupgrade.patch        | 21 +++++++++++++++++++++
 3 files changed, 32 insertions(+), 6 deletions(-)
 create mode 100644 svupgrade.patch

diff --git a/perl-Crypt-DES.changes b/perl-Crypt-DES.changes
index 0d76e79..d016df5 100644
--- a/perl-Crypt-DES.changes
+++ b/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
 
diff --git a/perl-Crypt-DES.spec b/perl-Crypt-DES.spec
index abeb9af..bed6890 100644
--- a/perl-Crypt-DES.spec
+++ b/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
+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"
diff --git a/svupgrade.patch b/svupgrade.patch
new file mode 100644
index 0000000..632de79
--- /dev/null
+++ b/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);
+