Le Sun, Jan 10, 2016 at 01:35:40AM -0500, Jason Woofenden a écrit :
>
> I frequently get this warning message:
>
> Unescaped left brace in regex is deprecated, passed through in regex;
> marked by <-- HERE in m/%{ <-- HERE (.*?)}/ at /usr/bin/run-mailcap line 528.
Thanks Jason,
I think that this is because Perl 5.22 deprecated unescapted left braces.
Can you test the attached patch ? I do not have a Sid machine ready at the
moment.
Have a nice day,
--
Charles Plessy
Tsurumi, Kanagawa, Japan
>From d2b5636a2fa478e8d5355e4b5d7eb19886f90146 Mon Sep 17 00:00:00 2001
From: Charles Plessy <ple...@debian.org>
Date: Mon, 11 Jan 2016 21:55:32 +0900
Subject: [PATCH] Escape a left curly bracket with a backslash. (Warning since
Perl 5.22).
Closes: #810587
---
run-mailcap | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/run-mailcap b/run-mailcap
index 3690f54..8ef4665 100755
--- a/run-mailcap
+++ b/run-mailcap
@@ -531,7 +531,7 @@ foreach (@files) {
$comm =~ s!([^%])%t!$1$type!g;
$comm =~ s!([^%])%F!$1!g;
- $comm =~ s!%{(.*?)}!$_="'$ENV{$1}'";s/\`//g;s/\'\'//g;$_!ge;
+ $comm =~ s!%\{(.*?)}!$_="'$ENV{$1}'";s/\`//g;s/\'\'//g;$_!ge;
$comm =~ s!\\(.)!$1!g;
$comm =~ s!\'\'!\'!g;
$comm =~ s!$quotedsemi!;!go;
--
2.1.4
