force bencode strings as strings in perl ng-client

Change-Id: I3f912cf41aa81ad02b8cbbf2fc9a6860ee82368b

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')) {