Lines Matching refs:sockets
4277 int sockets[2] = {-1, -1};
4287 sockets[i] = PerlSock_socket(AF_INET, SOCK_DGRAM, PF_INET);
4288 if (sockets[i] == -1)
4294 if (PerlSock_bind(sockets[i], (struct sockaddr *) &addresses[i],
4299 /* Now have 2 UDP sockets. Find out which port each is connected to, and
4303 if (PerlSock_getsockname(sockets[i], (struct sockaddr *) &addresses[i],
4309 if (PerlSock_connect(sockets[!i], (struct sockaddr *) &addresses[i],
4314 /* Now we have 2 sockets connected to each other. I don't trust some other
4323 got = PerlLIO_write(sockets[i], &port, sizeof(port));
4343 int max = sockets[1] > sockets[0] ? sockets[1] : sockets[0];
4347 FD_SET((unsigned int)sockets[0], &rset);
4348 FD_SET((unsigned int)sockets[1], &rset);
4351 if (got != 2 || !FD_ISSET(sockets[0], &rset)
4352 || !FD_ISSET(sockets[1], &rset)) {
4369 got = PerlSock_recvfrom(sockets[i], (char *) &buffer,
4373 got = PerlSock_recvfrom(sockets[i], (char *) &buffer,
4392 fd[0] = sockets[0];
4393 fd[1] = sockets[1];
4403 if (sockets[0] != -1)
4404 PerlLIO_close(sockets[0]);
4405 if (sockets[1] != -1)
4406 PerlLIO_close(sockets[1]);
4495 two sockets. */