From 612ff1d5f9a80820866134526e1192c4c00943bf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppi...@redhat.com>
Date: Thu, 18 Jun 2015 09:33:32 +0200
Subject: Fix a precedence issue reported by perl-5.22
diff --git a/Padre-1.00-eliminate-precedence-issue.patch
b/Padre-1.00-eliminate-precedence-issue.patch
new file mode 100644
index 0000000..f1fbc3c
--- /dev/null
+++ b/Padre-1.00-eliminate-precedence-issue.patch
@@ -0,0 +1,31 @@
+From fa53c2367b8e4f9e61031974cd207910c3f53156 Mon Sep 17 00:00:00 2001
+From: Gabor Szabo <ga...@szabgab.com>
+Date: Sun, 14 Sep 2014 08:10:25 +0300
+Subject: [PATCH] eliminate precedence issue
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppi...@redhat.com>
+---
+ lib/Padre/Document/Perl/QuickFix/StrictWarnings.pm | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/lib/Padre/Document/Perl/QuickFix/StrictWarnings.pm
b/lib/Padre/Document/Perl/QuickFix/StrictWarnings.pm
+index 8737e37..91ad98d 100644
+--- a/lib/Padre/Document/Perl/QuickFix/StrictWarnings.pm
++++ b/lib/Padre/Document/Perl/QuickFix/StrictWarnings.pm
+@@ -67,8 +67,8 @@ sub apply {
+ # insert 'use strict; use warnings;' at the top
+ my $first = $doc->find_first(
+ sub {
+- return $_[1]->isa('PPI::Statement')
+- or $_[1]->isa('PPI::Structure');
++ return ($_[1]->isa('PPI::Statement')
++ or $_[1]->isa('PPI::Structure'));
+ }
+ );
+ $replace = "use strict;\nuse warnings;\n";
+--
+2.1.0
+
diff --git a/perl-Padre.spec b/perl-Padre.spec
index 1e6a2b2..04844cc 100644
--- a/perl-Padre.spec
+++ b/perl-Padre.spec
@@ -18,6 +18,8 @@ Patch1: Padre-0.90-No-exit-in-Pod-Perldoc.patch
Patch2: Padre-0.90-Disable-Test-NoWarnings-t-01-load.t-tests.patch
# Adjust a test for perl-5.22 diagnostic messages, bug #1231893, CPAN RT#99293
Patch3:
Padre-0.90-The-text-of-the-error-has-changed-in-perl-5.21.4.-RT.patch
+# Fix a precedence issue reported by perl-5.22, bug #1231893
+Patch4: Padre-1.00-eliminate-precedence-issue.patch
BuildArch: noarch
BuildRequires: coreutils
BuildRequires: desktop-file-utils
@@ -317,6 +319,7 @@ in a directory called .padre.
%patch1 -p1
%patch2 -p1
%patch3 -p1
+%patch4 -p1
find share/{examples,templates} -type f \( -name '*.pl' -o -name '*.t' \) \
-exec chmod 755 {} +
@@ -401,6 +404,7 @@ mkdir "$HOME"
- Modernize spec file
- Use xvfb-run for X11 tests
- Adjust a test for perl-5.22 diagnostic messages (bug #1231893)
+- Fix a precedence issue reported by perl-5.22 (bug #1231893)
* Thu Jun 18 2015 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.90-15
- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
--
cgit v0.10.2
http://pkgs.fedoraproject.org/cgit/perl-Padre.git/commit/?h=master&id=612ff1d5f9a80820866134526e1192c4c00943bf
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-de...@lists.fedoraproject.org
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
