Codebase list libnet-sieve-script-perl / ed80e9f
Add patch to fix unescaped left brace warning which will be fatal in perl 5.30. Thanks: autopkgtest. gregor herrmann 6 years ago
2 changed file(s) with 19 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
+1
-0
debian/patches/series less more
0 unescaped_left_brace.patch
+18
-0
debian/patches/unescaped_left_brace.patch less more
0 Description: fix "Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.30), passed through in regex"
1 Origin: vendor
2 Author: gregor herrmann <gregoa@debian.org>
3 Last-Update: 2017-08-01
4 Forwarded: https://rt.cpan.org/Ticket/Display.html?id=122675
5 Bug: https://rt.cpan.org/Ticket/Display.html?id=122675
6
7 --- a/lib/Net/Sieve/Script.pm
8 +++ b/lib/Net/Sieve/Script.pm
9 @@ -254,7 +254,7 @@
10 }
11
12 my $order;
13 - while ($script_raw =~m/(if|else|elsif) (.*?){(.*?)}([\s;]?)/isg) {
14 + while ($script_raw =~m/(if|else|elsif) (.*?)\{(.*?)}([\s;]?)/isg) {
15 my $ctrl = lc($1);
16 my $test_list = $2;
17 my $block = $3;