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