##
use Carp;
$VERSION = "1.12";
sub read {
my $data = shift;
local *buf = \$_[0]; shift;
my $size = shift || croak 'read($buf,$size,[$timeout])';
my $n;
croak "Timeout";
return undef unless defined $n;
}
}
$n = length($buf);
${*$data}{'net_ftp_bytesread'} += $n;
$n;
}
sub write {
my $data = shift;
local *buf = \$_[0]; shift;
my $size = shift || croak 'write($buf,$size,[$timeout])';
# If the remote server has closed the connection we will be signal'd
# when we write. This can happen if the disk on the remote server fills up
my $off = 0;
while($sent > 0) {
croak "Timeout";
return undef unless defined($n);
$sent -= $n;
$off += $n;
}
$size;
}
1;