Lines Matching full:sock1
290 my $SOCK1 = '';
604 close $SOCK1 if $SOCK1;
610 my ($sock1, $sock2, $tag) = @_;
616 close $sock1;
620 close $sock1;
629 $SOCK1 = $sock1;
634 xfer_both($sock1, $sock2);
684 my ($sock1, $sock2) = @_;
700 xfer($sock1, $sock2);
714 xfer($sock2, $sock1);
