Dne Ne 28.srp.2016 16:49:19, SREZIC napsal(a):
Show quoted text> The test suite fails for bleadperl (e.g. perl 5.25.4):
>
> ...
> Unescaped left brace in regex is illegal here in regex; marked by <--
> HERE in m/\tuname -a > \${ <-- HERE TMPDIR}/bar && echo \\"\\
> \\#\\#\\#\\ \\\(woo\\!\\\)\\ \\#\\#\\#\\ \\"/ at t/104.metachars.t
> line 28.
> t/104.metachars.t ....... skipped: (no reason given)
> ...
>
A fix is attached.
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
