From 884514c0f05033c4d939362351d9127a021b0ce7 Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik@redhat.com>
Date: Fri, 11 Mar 2016 12:09:48 +0100
Subject: [PATCH] Fix test to work against perltidy-20160302 (bug #1314800)

---
 ...tened-1.07-Fix-test-for-new-perltidy.patch | 19 +++++++++++++++++++
 perl-Perl-Tidy-Sweetened.spec                 |  7 ++++++-
 2 files changed, 25 insertions(+), 1 deletion(-)
 create mode 100644 Perl-Tidy-Sweetened-1.07-Fix-test-for-new-perltidy.patch

diff --git a/Perl-Tidy-Sweetened-1.07-Fix-test-for-new-perltidy.patch b/Perl-Tidy-Sweetened-1.07-Fix-test-for-new-perltidy.patch
new file mode 100644
index 0000000..b311208
--- /dev/null
+++ b/Perl-Tidy-Sweetened-1.07-Fix-test-for-new-perltidy.patch
@@ -0,0 +1,19 @@
+diff -up Perl-Tidy-Sweetened-1.07/t/perl-signatures.t.orig Perl-Tidy-Sweetened-1.07/t/perl-signatures.t
+--- Perl-Tidy-Sweetened-1.07/t/perl-signatures.t.orig	2016-03-11 10:36:19.809540565 +0100
++++ Perl-Tidy-Sweetened-1.07/t/perl-signatures.t	2016-03-11 10:37:35.533205735 +0100
+@@ -73,13 +73,13 @@ sub foo($x, $y={}){           | sub foo
+ 
+ ==== 5.20 annoymous sub ===============================================
+ $j->map(                | $j->map(
+-  sub($x,$ = 0) {       |     sub($x,$ = 0) {
++  sub($x,$ = 0) {       |     sub ( $x, $ = 0 ) {
+    $x->method();        |         $x->method();
+   }                     |     }
+ );                      | );
+ 
+ ==== 5.20 annoymous sub 2  ===============================================
+-my $x = sub($x,$ = 0) { | my $x = sub($x,$ = 0) {
++my $x = sub($x,$ = 0) { | my $x = sub ( $x, $ = 0 ) {
+    $x->method();        |     $x->method();
+   };                    | };
+ 
diff --git a/perl-Perl-Tidy-Sweetened.spec b/perl-Perl-Tidy-Sweetened.spec
index fc23879..0cfc1b8 100644
--- a/perl-Perl-Tidy-Sweetened.spec
+++ b/perl-Perl-Tidy-Sweetened.spec
@@ -1,10 +1,11 @@
 Name:           perl-Perl-Tidy-Sweetened
 Version:        1.07
-Release:        2%{?dist}
+Release:        3%{?dist}
 Summary:        Tweaks to Perl::Tidy to support some syntactic sugar
 License:        GPL+ or Artistic
 URL:            http://search.cpan.org/dist/Perl-Tidy-Sweetened/
 Source0:        http://www.cpan.org/authors/id/M/MG/MGRIMES/Perl-Tidy-Sweetened-%{version}.tar.gz
+Patch0:         Perl-Tidy-Sweetened-1.07-Fix-test-for-new-perltidy.patch
 BuildArch:      noarch
 BuildRequires:  perl
 BuildRequires:  perl(Module::Build)
@@ -27,6 +28,7 @@ come to rely on. This module attempts to work around those issues.
 
 %prep
 %setup -q -n Perl-Tidy-Sweetened-%{version}
+%patch0 -p1
 
 %build
 perl Build.PL installdirs=vendor
@@ -48,6 +50,9 @@ perl Build.PL installdirs=vendor
 %{_mandir}/man3/*
 
 %changelog
+* Fri Mar 11 2016 Jitka Plesnikova <jplesnik@redhat.com> - 1.07-3
+- Fix test to work against perltidy-20160302 (bug #1314800)
+
 * Thu Feb 04 2016 Fedora Release Engineering <releng@fedoraproject.org> - 1.07-2
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild