| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| H A D | io_sock.t | 41 use IO::Socket;
43 $listen = IO::Socket::INET->new(Listen => 2,
79 $sock = IO::Socket::INET->new(PeerPort => $port,
83 || IO::Socket::INET->new(PeerPort => $port,
104 $listen = IO::Socket::INET->new(Listen => '', Timeout => 15) or die "$!";
121 $sock = IO::Socket::INET->new("localhost:$port")
122 || IO::Socket::INET->new("127.0.0.1:$port");
144 $sock = IO::Socket::INET->new("127.0.0.1:$port");
158 $sock = IO::Socket->new(Domain => AF_INET,
160 || IO::Socket->new(Domain => AF_INET,
[all …]
|
| H A D | io_udp.t | 57 use Socket;
58 use IO::Socket qw(AF_INET SOCK_DGRAM INADDR_ANY);
60 $udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost')
61 || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1')
66 $udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost')
67 || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1')
|
| H A D | io_unix.t | 25 require IO::Socket;
27 eval {IO::Socket::pack_sockaddr_un('/foo/bar') || 1}
54 use IO::Socket;
56 $listen = IO::Socket::UNIX->new(Local=>$PATH, Listen=>0) || die "$!";
84 $sock = IO::Socket::UNIX->new(Peer => $PATH) or die "$!";
|
| H A D | io_multihomed.t | 41 require IO::Socket::INET;
42 @ISA=qw(IO::Socket::INET);
44 use Socket qw(inet_aton inet_ntoa unpack_sockaddr_in);
85 use IO::Socket;
87 $listen = IO::Socket::INET->new(Listen => 2,
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/ |
| H A D | config.t | 11 undef *{Socket::inet_aton};
12 undef *{Socket::inet_ntoa};
19 package Socket; package
59 Socket::set_fail(1);
68 Socket::set_fail(0);
|
| H A D | time.t | 48 IO::Socket::INET::set_message('z');
58 IO::Socket::INET::set_message(pack("N", $offset + 6));
72 package IO::Socket::INET;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/ |
| H A D | netent.pm | 44 require Socket if @_;
45 $addrtype = @_ ? shift : Socket::AF_INET();
51 require Socket;
52 &getnetbyaddr(Socket::inet_aton(shift));
|
| H A D | hostent.pm | 50 require Socket unless @_;
51 $addrtype = @_ ? shift : Socket::AF_INET();
57 require Socket;
58 &gethostbyaddr(Socket::inet_aton(shift));
|
| H A D | Time.pm | 12 use IO::Socket;
38 $me = IO::Socket::INET->new(PeerAddr => $host,
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/Socket/ |
| H A D | UNIX.pm | 7 package IO::Socket::UNIX;
11 use IO::Socket;
12 use Socket;
19 IO::Socket::UNIX->register_domain( AF_UNIX );
|
| H A D | INET.pm | 7 package IO::Socket::INET;
11 use IO::Socket;
12 use Socket;
22 IO::Socket::INET->register_domain( AF_INET );
|
| /onnv-gate/usr/src/uts/common/pcmcia/sys/ |
| H A D | cs.h | 289 uint32_t Socket; member
355 uint32_t Socket; member
398 uint32_t Socket; member
532 uint32_t Socket; /* socket number to get tuple from */ member
559 uint32_t Socket; /* socket number to validate CIS on */ member
578 uint32_t Socket; /* socket number if necessary */ member
585 uint32_t Socket; /* socket number if necessary */ member
593 uint32_t Socket; member
662 uint32_t Socket; member
732 uint32_t Socket; member
[all …]
|
| /onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Ucred/t/ |
| H A D | Ucred.t | 127 use IO::Socket::UNIX;
129 my ($unix) = new IO::Socket::UNIX;
154 use IO::Socket::INET;
156 my $inet = new IO::Socket::INET;
159 $inet = new IO::Socket::INET;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/Ping/t/ |
| H A D | 510_ping_udp.t | 4 unless (eval "require Socket") {
5 print "1..0 \# Skip: no Socket\n";
|
| H A D | 140_stream_inst.t | 4 unless (eval "require Socket") {
5 print "1..0 \# Skip: no Socket\n";
|
| H A D | 130_tcp_inst.t | 4 unless (eval "require Socket") {
5 print "1..0 \# Skip: no Socket\n";
|
| H A D | 150_syn_inst.t | 4 unless (eval "require Socket") {
5 print "1..0 \# Skip: no Socket\n";
|
| H A D | 450_service.t | 4 unless (eval "require IO::Socket") {
5 print "1..0 \# Skip: no IO::Socket\n";
18 # I'm lazy so I'll just use IO::Socket
29 my $sock1 = new IO::Socket::INET
39 my $sock2 = new IO::Socket::INET
|
| H A D | 120_udp_inst.t | 5 unless (eval "require Socket") {
6 print "1..0 \# Skip: no Socket\n";
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CPAN/t/ |
| H A D | signature.t | 9 elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/ |
| H A D | Socket.pm | 7 package IO::Socket;
12 use Socket 1.3;
21 require IO::Socket::INET;
22 require IO::Socket::UNIX if ($^O ne 'epoc');
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Socket/t/ |
| H A D | Socket.t | 15 use Socket;
142 print (($@ =~ /^Wide character in Socket::inet_ntoa at/) ? "ok 14\n" : "not ok 14\n");
151 print (($@ =~ /^Bad arg length for Socket::sockaddr_family, length is 0, should be at least \d+/) ?…
|
| /onnv-gate/usr/src/cmd/dtrace/test/tst/common/ip/ |
| H A D | get.ipv4remote.pl | 40 use IO::Socket;
86 my $socket = IO::Socket::INET->new(
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/ |
| H A D | Functions.pm | 163 accept Socket accept an incoming socket connect
166 bind Socket binds an address to a socket
179 connect Socket connect to a remote socket
220 getpeername Socket find the other end of a socket connection
233 getsockname Socket retrieve the sockaddr for a given socket
234 getsockopt Socket get socket options on a given socket
294 recv Socket receive a message over a Socket
313 send Socket send a message over a socket
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Socket/ |
| H A D | Socket.pm | 1 package Socket; package
390 croak "&Socket::constant not defined" if $constname eq 'constant';
|