From eb0ec97d7cd256b1c57e1508134c0285203d6674 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Mon, 22 May 2017 11:48:27 +0200 Subject: 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. Bug: https://rt.cpan.org/Public/Bug/Display.html?id=117275 Bug: https://bugs.gentoo.org/623084 Signed-off-by: Petr Písař --- 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.15.1