[perl-Text-CSV/el6] Generate correct CSVs with quote_space => 0 (bug #58356)

[Lubomir Rintel]

commit 27074b863646c9e764d40a3b62fa699d6e77dfd6
Author: Lubomir Rintel <lkundrak at v3.sk>
Date:   Sat Jan 25 00:00:08 2014 +0100

    Generate correct CSVs with quote_space => 0 (bug #58356)

 ...bine-bug-with-quote_space-reported-by-rt-.patch |   25 ++++++++++++++++++++
 perl-Text-CSV.spec                                 |    7 ++++-
 2 files changed, 31 insertions(+), 1 deletions(-)
---
diff --git a/0001-fixed-a-combine-bug-with-quote_space-reported-by-rt-.patch b/0001-fixed-a-combine-bug-with-quote_space-reported-by-rt-.patch
new file mode 100644
index 0000000..ca29a88
--- /dev/null
+++ b/0001-fixed-a-combine-bug-with-quote_space-reported-by-rt-.patch
@@ -0,0 +1,25 @@
+From e4d6585be32b5a33f9c17bb6796ca5ffb68f1376 Mon Sep 17 00:00:00 2001
+From: makamaka <makamaka.donzoko at gmail.com>
+Date: Fri, 18 Jun 2010 11:52:50 +0900
+Subject: [PATCH] fixed a combine bug with quote_space reported by rt#58356
+
+---
+ lib/Text/CSV_PP.pm | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/lib/Text/CSV_PP.pm b/lib/Text/CSV_PP.pm
+index f166570..1c69281 100644
+--- a/lib/Text/CSV_PP.pm
++++ b/lib/Text/CSV_PP.pm
+@@ -320,7 +320,7 @@ sub _combine {
+             $must_be_quoted++;
+         }
+         if($column =~ /$re_sp/){
+-            $must_be_quoted++ if $quote_space;
++            $must_be_quoted++;
+         }
+ 
+         if($binary){
+-- 
+1.8.4.2
+
diff --git a/perl-Text-CSV.spec b/perl-Text-CSV.spec
index c21d39e..38e0077 100644
--- a/perl-Text-CSV.spec
+++ b/perl-Text-CSV.spec
@@ -1,12 +1,13 @@
 Name:		perl-Text-CSV
 Version:	1.16
-Release:	2%{?dist}
+Release:	2%{?dist}.1
 Summary:	Comma-separated values manipulator
 
 Group:		Development/Libraries
 License:	GPL+ or Artistic
 URL:		http://search.cpan.org/dist/Text-CSV/
 Source0:	http://search.cpan.org/CPAN/authors/id/M/MA/MAKAMAKA/Text-CSV-%{version}.tar.gz
+Patch0:		0001-fixed-a-combine-bug-with-quote_space-reported-by-rt-.patch
 BuildRoot:	%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 Requires:	perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 Requires:	perl(IO::Handle)
@@ -33,6 +34,7 @@ perhaps better called ASV (anything separated values) rather than just CSV.
 
 %prep
 %setup -q -n Text-CSV-%{version}
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -59,6 +61,9 @@ find %{buildroot} -depth -type d -exec rmdir {} 2>/dev/null ';'
 
 
 %changelog
+* Fri Jan 24 2014 Lubomir Rintel <lkundrak at v3.sk> 1.16-2.1
+- Generate correct CSVs with quote_space => 0 (bug #58356)
+
 * Thu Jul  1 2010 Johan Vromans <jvromans at squirrel.nl> 1.16-2
 - Rebuilt for EL-6