From 26ebb5d0a8f53855992e42af13ae4c4f60e48e2b Mon Sep 17 00:00:00 2001
From: Michael Prokop <mprokop@sipwise.com>
Date: Fri, 7 Sep 2018 22:11:43 +0200
Subject: [PATCH] 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
---
 bin/ulog_parser.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/ulog_parser.pl b/bin/ulog_parser.pl
index 623ae71a..10856c3b 100755
--- a/bin/ulog_parser.pl
+++ b/bin/ulog_parser.pl
@@ -163,7 +163,7 @@ do
 {
   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:{
-  if(($msg) = ($line =~ m/.+msg out:{(.+)}$/))
+  if(($msg) = ($line =~ m/.+msg out:\{(.+)\}$/))
   {
     do
     {
@@ -184,7 +184,7 @@ do
         print "No Call-ID\n";
       }
       next_line();
-    }while(($msg) = ($line =~ m/.+msg out:{(.+)}$/));
+    }while(($msg) = ($line =~ m/.+msg out:\{(.+)\}$/));
     #print "msg_out\n";
   }