Lines Matching refs:sock
318 my $sock = $fh->accept();
319 if (! $sock) {
330 my $n = syswrite($sock, $str, $len, 0);
333 close $sock;
343 $alarm_sock = $sock;
346 my $n = sysread($sock, $buf, $size);
355 close $sock;
357 do_new_client($sock, $buf);
359 do_new_server($sock, $buf);
365 my ($sock, $buf) = @_;
370 if (!established($ID{$id}{sock})) {
372 close $ID{$id}{sock};
381 if ($ref && !established($ID{$id}{sock})) {
387 close $sock;
391 close $ID{$id}{sock};
395 $ID{$id}{sock} = $sock;
399 my $sock2 = $ID{$id}{sock};
401 hookup($sock, $sock2, "ID:$id");
406 $ID{$id}{sock} = $sock;
449 close $sock;
452 hookup($sock, $sock2, "$host:$port");
457 my ($sock, $buf) = @_;
463 if (!established($ID{$id}{sock})) {
465 close $ID{$id}{sock};
474 if ($ref && !established($ID{$id}{sock})) {
480 close $sock;
484 close $ID{$id}{sock};
488 $ID{$id}{sock} = $sock;
492 my $sock2 = $ID{$id}{sock};
494 hookup($sock, $sock2, "ID:$id");
499 $ID{$id}{sock} = $sock;
503 close $sock;
739 close $ID{$id}{sock};