Merge branch 'untested'
This commit is contained in:
commit
05bd6c897c
|
@ -103,12 +103,14 @@ while(1) {
|
||||||
|
|
||||||
print "done sending files.\n";
|
print "done sending files.\n";
|
||||||
|
|
||||||
|
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) {
|
||||||
|
|
Loading…
Reference in a new issue