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 "sending " ;
print @ARGV; print @ARGV;
print ",\n"; print ",\n";
}
$ob->write(@ARGV); $ob->write(@ARGV);
$ob->write(','); $ob->write(',');
}
my $c; my $count; my $c; my $count;
while(1) { while(1) {