1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Description: fix RE syntax error with perl 5.18
curly brackets need no escaping unless they form {a,b} notion
Author: Damyan Ivanov <dmn@debian.org>
Bug: https://rt.cpan.org/Ticket/Display.html?id=85967
Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=711425
Forwarded: yes
--- a/lib/AnyEvent/Connection/Util.pm
+++ b/lib/AnyEvent/Connection/Util.pm
@@ -29,7 +29,7 @@ sub dumper (@) {
->Useqq(1)
->Quotekeys(0)
->Dump;
- $s =~ s{\\x\{([a-f0-9]{1,4})\}}{chr hex $1}sge;
+ $s =~ s{\\x{([a-f0-9]{1,4})}}{chr hex $1}sge;
$s;
};
goto &{ caller().'::dumper' };
|
