From 931c2cecad0e383052d6d5bb6612c49abd51ba76 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Mon, 22 May 2017 11:48:27 +0200
Subject: [PATCH] Escape literal curly bracket in a regexp
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Literal curly brackets must be escaped for Perl 5.26.0.

CPAN RT#117275

Signed-off-by: Petr Písař <ppisar@redhat.com>
---
 t/104.metachars.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/104.metachars.t b/t/104.metachars.t
index 68ec199..8f3bb9e 100644
--- a/t/104.metachars.t
+++ b/t/104.metachars.t
@@ -25,4 +25,4 @@ print $rule->Assemble;
 ok ($rule->Assemble =~ /%.1 : %.pod/);
 ok ($rule->Assemble =~ /\tpod2man --center \$\(PACKAGE\) --release \$\(PACKAGE_VERSION\) \$< \$@/);
 ok ($rule->Assemble =~ /\techo `uname -a` > \$\(TMPDIR\)\/foo/);
-ok ($rule->Assemble =~ /\tuname -a > \${TMPDIR}\/bar && echo \\"\\ \\#\\#\\#\\ \\\(woo\\!\\\)\\ \\#\\#\\#\\ \\"/);
+ok ($rule->Assemble =~ /\tuname -a > \$\{TMPDIR\}\/bar && echo \\"\\ \\#\\#\\#\\ \\\(woo\\!\\\)\\ \\#\\#\\#\\ \\"/);
-- 
2.9.4