Lines Matching refs:data
2 ## Generic data connection package
17 my $data = shift;
18 ${*$data}{'net_ftp_bytesread'} = 0;
23 my $data = shift;
24 my $ftp = ${*$data}{'net_ftp_cmd'};
27 return $data->close
28 if ${*$data}{'net_ftp_eof'};
34 if(exists ${*$data}{'net_ftp_bytesread'}
35 && (${*$data}{'net_ftp_bytesread'} == 0)) {
37 my $timeout = $data->timeout;
38 $data->can_read($timeout) && sysread($data,$buf,1);
41 ${*$data}{'net_ftp_eof'} = 1; # fake
48 my $data = shift;
49 my $ftp = ${*$data}{'net_ftp_cmd'};
51 $data->SUPER::close();
55 $data == ${*$ftp}{'net_ftp_dataconn'};
60 my $data = shift;
61 my $ftp = ${*$data}{'net_ftp_cmd'};
63 if(exists ${*$data}{'net_ftp_bytesread'} && !${*$data}{'net_ftp_eof'}) {
65 $data->read($junk,1,0);
66 return $data->abort unless ${*$data}{'net_ftp_eof'};
69 $data->_close;
79 my ($data, $timeout, $do_read) = @_;
82 vec($rin='',fileno($data),1) = 1;