send aux string only when there is one to send

This commit is contained in:
Mariano Alvira 2009-05-09 16:40:43 -04:00
parent 49543941e1
commit ad1927f2c8

View file

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