From 942966b463baf9c8416f2ab32501e9ec343feafc Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Mon, 25 Apr 2016 08:22:23 -0400
Subject: [PATCH] force bencode strings as strings in perl ng-client

Change-Id: I3f912cf41aa81ad02b8cbbf2fc9a6860ee82368b
---
 utils/ng-client | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/utils/ng-client b/utils/ng-client
index 45560d677..9cecc14e5 100755
--- a/utils/ng-client
+++ b/utils/ng-client
@@ -51,7 +51,10 @@ my $cmd = shift(@ARGV) or die;
 
 my %packet = (command => $cmd);
 
-for my $x (split(',', 'from-tag,to-tag,call-id,transport protocol,media address,ICE,address family,TOS,DTLS,via-branch,delete-delay,media address')) {
+for my $x (split(',', 'from-tag,to-tag,call-id,transport protocol,media address,ICE,address family,DTLS,via-branch,media address')) {
+	defined($options{$x}) and $packet{$x} = \$options{$x};
+}
+for my $x (split(',', 'TOS,delete-delay')) {
 	defined($options{$x}) and $packet{$x} = $options{$x};
 }
 for my $x (split(',', 'trust address,symmetric,asymmetric,force,strict source,media handover,sip source address,reset,port latching')) {