60 sub close {
     61   my $data = shift;
     62   my $ftp  = ${*$data}{'net_ftp_cmd'};
     63
     64   if (exists ${*$data}{'net_ftp_bytesread'} && !${*$data}{'net_ftp_eof'}) {
     65     my $junk;
     66     $data->read($junk, 1, 0);
     67     return $data->abort unless ${*$data}{'net_ftp_eof'};
     68   }
     69
     70   $data->_close;