48 sub _close {
     49   my $data = shift;
     50   my $ftp  = ${*$data}{'net_ftp_cmd'};
     51
     52   $data->SUPER::close();
     53
     54   delete ${*$ftp}{'net_ftp_dataconn'}
     55     if exists ${*$ftp}{'net_ftp_dataconn'}
     56     && $data == ${*$ftp}{'net_ftp_dataconn'};
     57 }