Lines Matching refs:sock
109 my $sock = __open_data_connection ($conn);
110 unless ($sock) {
116 print $sock "$item\r\n";
119 unless ($sock->close) {
149 my $sock = IO::Socket::INET->new (LocalHost => '127.0.0.1',
156 unless ($sock) {
163 $conn->{passive_socket} = $sock;
166 my $sockport = $sock->sockport;
261 my $sock = __open_data_connection ($conn);
263 unless ($sock) {
292 $w = syswrite ($sock, $buffer, $r - $n, $n);
296 close $sock;
307 close $sock;
315 close $sock;
330 print $sock "$_\r\n";
335 close $sock;
342 unless (close ($sock)) {
421 my $sock;
425 accept ($sock, $conn->{passive_socket}) or return undef;
429 $sock = IO::Socket::INET->new (LocalAddr => '127.0.0.1',
436 return $sock;