From ad4426d2c48ac7ccb162d326d76a024e8fda93de Mon Sep 17 00:00:00 2001
From: Kamil Dudka <kdudka@redhat.com>
Date: Jul 24 2017 13:27:01 +0000
Subject: Resolves: #1473853 - fix test-suite failure with perl-5.26.0


---

diff --git a/0004-attr-2.4.47-test-suite-perl.patch b/0004-attr-2.4.47-test-suite-perl.patch
new file mode 100644
index 0000000..f91562f
--- /dev/null
+++ b/0004-attr-2.4.47-test-suite-perl.patch
@@ -0,0 +1,29 @@
+From 46baedf88fe22abafa3f2341b2c1bcb4764ce389 Mon Sep 17 00:00:00 2001
+From: Troy Dawson <tdawson@redhat.com>
+Date: Fri, 21 Jul 2017 14:05:47 -0700
+Subject: [PATCH] attr: escape left brace in a regex in test/run
+
+... to fix test-suite failure with perl-5.26.0
+
+Bug: https://bugzilla.redhat.com/1473853
+Signed-off-by: Kamil Dudka <kdudka@redhat.com>
+---
+ test/run | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/test/run b/test/run
+index 4b1f8d0..07e916c 100755
+--- a/test/run
++++ b/test/run
+@@ -106,7 +106,7 @@ for (;;) {
+   if (defined $line) {
+     # Substitute %VAR and %{VAR} with environment variables.
+     $line =~ s[%(\w+)][$ENV{$1}]eg;
+-    $line =~ s[%{(\w+)}][$ENV{$1}]eg;
++    $line =~ s[%\{(\w+)}][$ENV{$1}]eg;
+   }
+   if (defined $line) {
+     if ($line =~ s/^\s*< ?//) {
+-- 
+2.13.0
+
diff --git a/attr.spec b/attr.spec
index 39ff1c8..6610e53 100644
--- a/attr.spec
+++ b/attr.spec
@@ -13,6 +13,9 @@ Patch2: 0002-attr-2.4.47-xattr-conf.patch
 # remove outdated tests from test/attr.test
 Patch3: 0003-attr-2.4.47-test-suite.patch
 
+# fix test-suite failure with perl-5.26.0 (#1473853)
+Patch4: 0004-attr-2.4.47-test-suite-perl.patch
+
 License: GPLv2+
 URL: https://savannah.nongnu.org/projects/attr
 Group: System Environment/Base
@@ -133,6 +136,7 @@ rmdir "$RPM_BUILD_ROOT%{_mandir}/man5"
 
 %changelog
 * Mon Jul 24 2017 Kamil Dudka <kdudka@redhat.com> 2.4.47-19
+- fix test-suite failure with perl-5.26.0 (#1473853)
 - apply patches automatically to ease maintenance
 - update URL of the upstream source tarball