Kamil Dudka 3147a2
From 368f03d8d415854fc2e66ebaf6e014d9c0fada7b Mon Sep 17 00:00:00 2001
Kamil Dudka 3147a2
From: Troy Dawson <tdawson@redhat.com>
Kamil Dudka 3147a2
Date: Fri, 21 Jul 2017 14:05:47 -0700
Kamil Dudka 3147a2
Subject: [PATCH] acl: escape left brace in a regex in test/run
Kamil Dudka 3147a2
Kamil Dudka 3147a2
... to fix test-suite failure with perl-5.26.0
Kamil Dudka 3147a2
Kamil Dudka 3147a2
Bug: https://bugzilla.redhat.com/1473845
Kamil Dudka 3147a2
Kamil Dudka 3147a2
Upstream-commit: f2feb94748bd3c64ed153461afa51aebbd717821
Kamil Dudka 3147a2
Signed-off-by: Kamil Dudka <kdudka@redhat.com>
Kamil Dudka 3147a2
---
Kamil Dudka 3147a2
 test/run | 2 +-
Kamil Dudka 3147a2
 1 file changed, 1 insertion(+), 1 deletion(-)
Kamil Dudka 3147a2
Kamil Dudka 3147a2
diff --git a/test/run b/test/run
Kamil Dudka 3147a2
index 2cf52e8..0e499e4 100755
Kamil Dudka 3147a2
--- a/test/run
Kamil Dudka 3147a2
+++ b/test/run
Kamil Dudka 3147a2
@@ -70,7 +70,7 @@ for (;;) {
Kamil Dudka 3147a2
   if (defined $line) {
Kamil Dudka 3147a2
     # Substitute %VAR and %{VAR} with environment variables.
Kamil Dudka 3147a2
     $line =~ s[%(\w+)][$ENV{$1}]eg;
Kamil Dudka 3147a2
-    $line =~ s[%{(\w+)}][$ENV{$1}]eg;
Kamil Dudka 3147a2
+    $line =~ s[%\{(\w+)}][$ENV{$1}]eg;
Kamil Dudka 3147a2
   }
Kamil Dudka 3147a2
   if (defined $line) {
Kamil Dudka 3147a2
     if ($line =~ s/^\s*< ?//) {
Kamil Dudka 3147a2
-- 
Kamil Dudka 3147a2
2.9.4
Kamil Dudka 3147a2