[perl-SQL-Shell] Perl 5.18 compatibility

[Petr Pisar]

commit 163b1163b826c36c2cf3779a8185d28c3040fee7
Author: Petr Písař <ppisar at redhat.com>
Date:   Wed Jul 24 12:25:18 2013 +0200

    Perl 5.18 compatibility

 ...8-does-add-parentheses-around-qw-operator.patch |   38 ++++++++++++++++++++
 perl-SQL-Shell.spec                                |    4 ++
 2 files changed, 42 insertions(+), 0 deletions(-)
---
diff --git a/SQL-Shell-1.14-Perl-5.18-does-add-parentheses-around-qw-operator.patch b/SQL-Shell-1.14-Perl-5.18-does-add-parentheses-around-qw-operator.patch
new file mode 100644
index 0000000..cc4ca21
--- /dev/null
+++ b/SQL-Shell-1.14-Perl-5.18-does-add-parentheses-around-qw-operator.patch
@@ -0,0 +1,38 @@
+From 755a98485c2e1de3c94b005e8ec09eca013b441e Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Wed, 24 Jul 2013 12:23:05 +0200
+Subject: [PATCH] Perl 5.18 does add parentheses around qw operator
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+<https://rt.cpan.org/Public/Bug/Display.html?id=87245>
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+---
+ t/SQL-Shell.t | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/t/SQL-Shell.t b/t/SQL-Shell.t
+index 3f23835..7310e58 100644
+--- a/t/SQL-Shell.t
++++ b/t/SQL-Shell.t
+@@ -72,7 +72,7 @@ $output = execute($sqlsh, "set rubbish on");
+ ASSERT(scalar $output =~ /Unknown parameter 'rubbish' for set command/s, "trap invalid param");
+ 
+ #Invalid param values
+-for my $param qw(tracing display-mode log-mode escape enter-whitespace width longreadlen longtruncok auto-commit multiline) {
++for my $param (qw(tracing display-mode log-mode escape enter-whitespace width longreadlen longtruncok auto-commit multiline)) {
+ 	$output = execute($sqlsh, "set $param rubbish");
+ 	ASSERT(scalar $output =~ /'rubbish' is an invalid value/s, "trap invalid value for $param");
+ }
+@@ -258,4 +258,4 @@ sub renderer {
+ 	{	
+ 		print $fh join($delim, @$row).":";
+ 	}				
+-}
+\ No newline at end of file
++}
+-- 
+1.8.1.4
+
diff --git a/perl-SQL-Shell.spec b/perl-SQL-Shell.spec
index 26b677a..acc6d4c 100644
--- a/perl-SQL-Shell.spec
+++ b/perl-SQL-Shell.spec
@@ -6,6 +6,8 @@ License:    GPLv2
 Group:      Development/Libraries
 Summary:    Command interpreter for DBI shells 
 Source:     http://search.cpan.org/CPAN/authors/id/B/BB/BBC/SQL-Shell-%{version}.tar.gz 
+# Perl 5.18 compatibility, CPAN RT#87245
+Patch0:     SQL-Shell-1.14-Perl-5.18-does-add-parentheses-around-qw-operator.patch
 Url:        http://search.cpan.org/dist/SQL-Shell
 Requires:   perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 BuildArch:  noarch
@@ -50,6 +52,7 @@ See the SQL::Shell::Manual manpage for a user guide.
 
 %prep
 %setup -q -n SQL-Shell-%{version}
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -77,6 +80,7 @@ make test
 %changelog
 * Wed Jul 24 2013 Petr Pisar <ppisar at redhat.com> - 1.14-14
 - Perl 5.18 rebuild
+- Perl 5.18 compatibility (CPAN RT#87245)
 
 * Thu Feb 14 2013 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 1.14-13
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild