Lines Matching defs:fd
1867 int fd;
1869 for (fd = PL_maxsysfd + 1; fd < NOFILE; fd++) {
1870 if (fd != pp[1])
1871 PerlLIO_close(fd);
1884 /* Keep the lower of the two fd numbers */
2002 int fd;
2008 int fd;
2010 for (fd = PL_maxsysfd + 1; fd < NOFILE; fd++)
2011 if (fd != pp[1])
2012 PerlLIO_close(fd);
2165 int fd;
2169 for (fd = 0; fd < 32; fd++) {
2170 if (PerlLIO_fstat(fd,&tmpstatbuf) >= 0)
2171 PerlIO_printf(Perl_debug_log," %d",fd);
2190 int fd;
2195 /* good enough for low fd's... */
2196 while ((fd = PerlLIO_dup(oldfd)) != newfd && fd >= 0) {
2198 PerlLIO_close(fd);
2199 fd = -1;
2202 fdtmp[fdx++] = fd;
2206 return fd;
3953 S_socketpair_udp (int fd[2]) {
4071 fd[0] = sockets[0];
4072 fd[1] = sockets[1];
4094 Perl_my_socketpair (int family, int type, int protocol, int fd[2]) {
4113 if (!fd) {
4120 return S_socketpair_udp(fd);
4169 fd[0] = connector;
4170 fd[1] = acceptor;
4192 Perl_my_socketpair (int family, int type, int protocol, int fd[2]) {
4194 return socketpair(family, type, protocol, fd);
4328 int fd;
4353 fd = PerlLIO_open(PERL_RANDOM_DEVICE, 0);
4354 if (fd != -1) {
4355 if (PerlLIO_read(fd, &u, sizeof u) != sizeof u)
4357 PerlLIO_close(fd);