rpms/perl-Text-CSV_XS/devel perl-Text-CSV_XS-0.52-svupgrade.patch, NONE, 1.1 perl-Text-CSV_XS.spec, 1.13, 1.14

[Lubomir Rintel]

Author: lkundrak

Update of /cvs/pkgs/rpms/perl-Text-CSV_XS/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv642

Modified Files:
	perl-Text-CSV_XS.spec 
Added Files:
	perl-Text-CSV_XS-0.52-svupgrade.patch 
Log Message:
* Tue Jul 08 2008 Lubomir Rintel <lkundrak at v3.sk> - 0.52-2
- Actually solving the issue mentioned in previous change


perl-Text-CSV_XS-0.52-svupgrade.patch:

--- NEW FILE perl-Text-CSV_XS-0.52-svupgrade.patch ---
Under some circumstances, newSVpv() returns SV of higher type than
SVt_PVIV, such as SVt_PVMG.

Lubomir Rintel <lkundrak at v3.sk>
Upstream: http://repo.or.cz/w/Text-CSV_XS.git?a=commit;h=72d4bab14e22e62699e90eeb306c606435ef31a6

diff -urp Text-CSV_XS-0.52.orig/CSV_XS.xs Text-CSV_XS-0.52/CSV_XS.xs
--- Text-CSV_XS-0.52.orig/CSV_XS.xs	2008-06-17 12:20:00.000000000 +0200
+++ Text-CSV_XS-0.52/CSV_XS.xs	2008-07-08 14:42:33.000000000 +0200
@@ -181,7 +181,7 @@ static SV *SetDiag (csv_t *csv, int xse)
 
     while (xs_errors[i].xs_errno && xs_errors[i].xs_errno != xse) i++;
     if ((err = newSVpv (xs_errors[i].xs_errstr, 0))) {
-	sv_upgrade (err, SVt_PVIV);
+	SvUPGRADE (err, SVt_PVIV);
 	SvIV_set (err, xse);
 	SvIOK_on (err);
 	hv_store (csv->self, "_ERROR_DIAG",  11, err,           0);


Index: perl-Text-CSV_XS.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Text-CSV_XS/devel/perl-Text-CSV_XS.spec,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- perl-Text-CSV_XS.spec	8 Jul 2008 10:02:34 -0000	1.13
+++ perl-Text-CSV_XS.spec	8 Jul 2008 15:08:21 -0000	1.14
@@ -1,12 +1,13 @@
 Name:           perl-Text-CSV_XS
 Version:        0.52
-Release:        1%{?dist}
+Release:        2%{?dist}
 Summary:        Comma-separated values manipulation routines
 
 Group:          Development/Libraries
 License:        GPL+ or Artistic
 URL:            http://search.cpan.org/dist/Text-CSV_XS/
 Source0:        http://www.cpan.org/authors/id/H/HM/HMBRAND/Text-CSV_XS-%{version}.tgz
+Patch0:         perl-Text-CSV_XS-0.52-svupgrade.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildRequires:  perl(Test::Pod)
@@ -21,6 +22,7 @@
 
 %prep
 %setup -q -n Text-CSV_XS-%{version}
+%patch0 -p1 -b .svupgrade
 chmod -c a-x examples/*
 
 
@@ -55,6 +57,9 @@
 
 
 %changelog
+* Tue Jul 08 2008 Lubomir Rintel <lkundrak at v3.sk> - 0.52-2
+- Actually solving the issue mentioned in previous change
+
 * Tue Jul 08 2008 Lubomir Rintel <lkundrak at v3.sk> - 0.52-1
 - Updated to 0.52 to solve an issue with perl 5.10