send aux string only when there is one to send
This commit is contained in:
parent
49543941e1
commit
ad1927f2c8
1 changed files with 3 additions and 3 deletions
|
@ -107,10 +107,10 @@ if(scalar(@ARGV)!=0) {
|
|||
print "sending " ;
|
||||
print @ARGV;
|
||||
print ",\n";
|
||||
}
|
||||
|
||||
$ob->write(@ARGV);
|
||||
$ob->write(',');
|
||||
$ob->write(@ARGV);
|
||||
$ob->write(',');
|
||||
}
|
||||
|
||||
my $c; my $count;
|
||||
while(1) {
|
||||
|
|
Loading…
Reference in a new issue