| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| io_unix.t | 19 $reason = 'Socket extension unavailable';
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 "$!";
|
| io_sock.t | 19 $reason = 'Socket extension unavailable';
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
[all...] |
| io_multihomed.t | 19 $reason = 'Socket extension unavailable';
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,
|
| io_udp.t | 17 $reason = 'Socket was not built';
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')
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/ |
| config.t | 8 if (!eval "require Socket") {
9 print "1..0 # no Socket\n"; exit 0;
11 undef *{Socket::inet_aton};
12 undef *{Socket::inet_ntoa};
16 $INC{'Socket.pm'} = 1;
19 package Socket;
59 Socket::set_fail(1);
68 Socket::set_fail(0);
|
| time.t | 8 if (!eval "require Socket") {
9 print "1..0 # no Socket\n"; exit 0;
14 $INC{'IO/Socket.pm'} = 1;
16 $INC{'IO/Socket/INET.pm'} = 1;
23 # cannot use(), otherwise it will use IO::Socket and IO::Select
28 # force the socket to fail
29 make_fail('IO::Socket::INET', 'new');
31 is( $badsock, undef, '_socket() should fail if Socket creation fails' );
33 # if socket is created with protocol UDP (default), it will send a newline
35 ok( $sock->isa('IO::Socket::INET'), 'should be an IO::Socket::INET object' )
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/Socket/ |
| UNIX.pm | 1 # IO::Socket::UNIX.pm
7 package IO::Socket::UNIX;
11 use IO::Socket;
12 use Socket;
15 @ISA = qw(IO::Socket);
19 IO::Socket::UNIX->register_domain( AF_UNIX );
33 $sock->socket(AF_UNIX, $type, 0) or
72 IO::Socket::UNIX - Object interface for AF_UNIX domain sockets
76 use IO::Socket::UNIX;
80 C<IO::Socket::UNIX> provides an object interface to creating and using socket
[all...] |
| INET.pm | 1 # IO::Socket::INET.pm
7 package IO::Socket::INET;
11 use IO::Socket;
12 use Socket;
17 @ISA = qw(IO::Socket);
22 IO::Socket::INET->register_domain( AF_INET );
147 $sock->socket(AF_INET, $type, $proto) or
282 IO::Socket::INET - Object interface for AF_INET domain sockets
286 use IO::Socket::INET;
290 C<IO::Socket::INET> provides an object interface to creating and using socket
[all...] |
| /onnv/onnv-gate/usr/src/cmd/dtrace/test/tst/common/ip/ |
| tst.ipv4localtcp.ksh | 68 use IO::Socket;
69 my \$s = IO::Socket::INET->new(
|
| get.ipv4remote.pl | 40 use IO::Socket;
86 my $socket = IO::Socket::INET->new(
92 next unless $socket;
93 close $socket;
|
| tst.ipv4remotetcp.ksh | 71 use IO::Socket;
72 my \$s = IO::Socket::INET->new(
|
| get.ipv6remote.pl | 40 use IO::Socket;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/ |
| hostent.pm | 50 require Socket unless @_;
51 $addrtype = @_ ? shift : Socket::AF_INET();
57 require Socket;
58 &gethostbyaddr(Socket::inet_aton(shift));
95 argument to gethostbyaddr() by way of Socket::inet_aton, and the rest
107 use Socket;
|
| hostent.t | 15 plan skip_all => "Test uses Socket, Socket not built";
33 use Socket;
|
| netent.pm | 44 require Socket if @_;
45 $addrtype = @_ ? shift : Socket::AF_INET();
51 require Socket;
52 &getnetbyaddr(Socket::inet_aton(shift));
122 use Socket;
|
| Time.pm | 12 use IO::Socket;
38 $me = IO::Socket::INET->new(PeerAddr => $host,
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Ucred/t/ |
| Ucred.t | 148 use IO::Socket::UNIX;
150 my ($unix) = new IO::Socket::UNIX;
173 # 5. Create a AF_INET loopback connected socket and call getpeerucred().
175 use IO::Socket::INET;
177 my $inet = new IO::Socket::INET;
179 $s1 = $inet->socket(AF_INET, SOCK_STREAM, 0);
180 $inet = new IO::Socket::INET;
181 $s2 = $inet->socket(AF_INET, SOCK_STREAM, 0);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/ |
| IO.pm | 19 my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
47 IO::Socket
64 IO::Socket, IO::Dir. You should instead explicitly import the IO
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/ |
| Socket.pm | 1 # IO::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');
33 Exporter::export_to_level('IO::Socket', 1, $pkg, 'sockatmark');
36 Exporter::export 'Socket', $callpkg, @_;
63 croak 'IO::Socket: Cannot configure a generic socket'
66 croak "IO::Socket: Unsupported socket domain
76 sub socket { subroutine
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Socket/t/ |
| Socket.t | 15 use Socket;
25 if (socket(T,PF_INET,SOCK_STREAM,6)) {
73 if( socket(S,PF_INET,SOCK_STREAM,6) ){
122 use warnings '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+/) ? "ok 16\n" : "not ok 16\n");
155 my $test_abstract_socket = chr(0) . '/tmp/test-perl-socket';
167 # doesn't have abstract socket support
|
| /onnv/onnv-gate/usr/src/cmd/dtrace/test/tst/common/mib/ |
| tst.tcp.ksh | 83 use Socket;
85 socket(S, AF_INET, SOCK_STREAM, getprotobyname('tcp'))
86 or die "socket() failed: \$!";
110 use Socket;
114 socket(S, AF_INET, SOCK_STREAM, getprotobyname('tcp'))
115 or die "socket() failed: \$!";
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| ver.t | 183 eval { require Socket; gethostbyaddr(v127.0.0.1, &Socket::AF_INET) };
189 skip("No Socket::AF_INET # $@") if $@;
192 eval { $host = gethostbyaddr($ip,&Socket::AF_INET) };
|
| /onnv/onnv-gate/usr/src/uts/common/pcmcia/sys/ |
| cs.h | 93 #define CS_BAD_SOCKET 0x0b /* Specified socket is invalid */
101 #define CS_NO_CARD 0x14 /* No PC card in socket */
142 * Card Services receives these events from Socket Services or by reading
172 * The CS_EVENT_SS_UPDATED event is generated when Socket Services
179 * The CS_EVENT_STATUS_CHANGE event is generated by a Socket Services
207 * any such events occur on the socket.
289 uint32_t Socket;
355 uint32_t Socket;
398 uint32_t Socket;
492 * by CS to sequence the order of event callbacks and to allow Socket
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/ |
| 1_compile.t | 21 if (eval { require Socket }) {
|
| /onnv/onnv-gate/usr/src/lib/libslp/javalib/com/sun/slp/ |
| StreamListener.java | 27 // StreamListener.java: Listen to stream socket, spawn request to
51 private ServerSocket serverSocket = null; // The listening socket
91 // Create a server socket for incoming Stream connections.
113 // Listen to port 427, accept incoming connections, pass the socket
126 Socket s = null;
138 // Set socket timeout in case something goes wrong.
|
