TT#44157 bin/ulog_parser.pl: fix regex for perl >=5.26

Fixes:

| Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/.+msg out:{ <-- HERE (.+)}$/ at bin/ulog_parser.pl line 166.
| Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/.+msg out:{ <-- HERE (.+)}$/ at bin/ulog_parser.pl line 187.

This was deprecated already in older perl versions:

| Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/.+msg out:{ <-- HERE (.+)}$/ at bin/ulog_parser.pl line 187.

Starting with perl 5.26 it raises an error
message instead of just a warning message though.

Change-Id: Ic7af73d088ce580b59f6a5e5fc578b723ee7410c
changes/35/23335/2
Michael Prokop 8 years ago
parent 55bd3fd34b
commit 26ebb5d0a8

@ -163,7 +163,7 @@ do
{ {
my ($mode, $route, $msgid, $msgid_t, $json, $msg, $pjson, $callid, $method); my ($mode, $route, $msgid, $msgid_t, $json, $msg, $pjson, $callid, $method);
# Jun 25 14:52:16 spce proxy[11248]: DEBUG: debugger [debugger_api.c:427]: dbg_cfg_dump(): msg out:{ # Jun 25 14:52:16 spce proxy[11248]: DEBUG: debugger [debugger_api.c:427]: dbg_cfg_dump(): msg out:{
if(($msg) = ($line =~ m/.+msg out:{(.+)}$/)) if(($msg) = ($line =~ m/.+msg out:\{(.+)\}$/))
{ {
do do
{ {
@ -184,7 +184,7 @@ do
print "No Call-ID\n"; print "No Call-ID\n";
} }
next_line(); next_line();
}while(($msg) = ($line =~ m/.+msg out:{(.+)}$/)); }while(($msg) = ($line =~ m/.+msg out:\{(.+)\}$/));
#print "msg_out\n"; #print "msg_out\n";
} }

Loading…
Cancel
Save