Lines Matching refs:ls
37 my $ls = IO::Socket->new(
45 setsockopt($ls, SOL_SOCKET, SO_OOBINLINE, pack('i', 1))
49 setsockopt($ls, SOL_SOCKET, SO_SNDBUF,
54 setsockopt($ls, SOL_SOCKET, SO_RCVBUF,
59 setsockopt($ls, IPPROTO_TCP, TCP_NODELAY, pack('i', 1))
61 listen($ls, 1)
65 print $log "listen sock: ",$ls->sockhost()," ",$ls->sockport(),"\n";
66 $self->{listenaddr} = $ls->sockhost() unless $self->{listenaddr};
67 $self->{listenport} = $ls->sockport() unless $self->{listenport};
68 $self->{ls} = $ls;
75 my $as = $self->{ls};
77 $as = $self->{ls}->accept()