Merge branch 'untested'

This commit is contained in:
Mariano Alvira 2009-05-09 16:41:23 -04:00
commit 05bd6c897c
1 changed files with 7 additions and 5 deletions

View File

@ -103,12 +103,14 @@ while(1) {
print "done sending files.\n"; print "done sending files.\n";
print "sending " ; if(scalar(@ARGV)!=0) {
print @ARGV; print "sending " ;
print ",\n"; print @ARGV;
print ",\n";
$ob->write(@ARGV); $ob->write(@ARGV);
$ob->write(','); $ob->write(',');
}
my $c; my $count; my $c; my $count;
while(1) { while(1) {