Lines Matching refs:NS
97 local(*NS) = "__" . time;
98 unless (socket(NS, $pf_inet, $sock_stream, $tcp_proto)) {
99 ($!) = ($!, close(NS));
102 unless (bind(NS, $thisproc_local)) {
103 ($!) = ($!, close(NS));
106 unless (listen(NS, 1)) {
107 ($!) = ($!, close(NS));
110 select((select(NS), $| = 1)[0]);
112 unpack("S n C C C C x8", getsockname(NS));
113 $S{"needs_accept"} = *NS; # so expect will open it
192 local(*NS) = $S{"needs_accept"};
194 $S{"needs_close"} = *NS;
195 unless(accept(S,NS)) {
196 ($!) = ($!, close(S), close(NS));
306 local(*NS) = $S{"needs_close"};
308 close(NS);