commit 163b1163b826c36c2cf3779a8185d28c3040fee7
Author: Petr Písař <ppisar@xxxxxxxxxx>
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@xxxxxxxxxx>
+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@xxxxxxxxxx>
+---
+ 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@xxxxxxxxxx> - 1.14-14
- Perl 5.18 rebuild
+- Perl 5.18 compatibility (CPAN RT#87245)
* Thu Feb 14 2013 Fedora Release Engineering <rel-eng@xxxxxxxxxxxxxxxxxxxxxxx> - 1.14-13
- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
