Merge branch 'untested'

This commit is contained in:
Mariano Alvira 2009-05-09 16:41:23 -04:00
commit 05bd6c897c

View file

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