… | |
… | |
232 | } |
232 | } |
233 | |
233 | |
234 | /*****************************************************************************/ |
234 | /*****************************************************************************/ |
235 | /* portable pipe/socketpair */ |
235 | /* portable pipe/socketpair */ |
236 | |
236 | |
237 | #ifdef USE_SOCKETS_AS_HANDLES |
237 | #if defined(USE_SOCKETS_AS_HANDLES) || PERL_VERSION_ATLEAST(5,18,0) |
238 | # define S_TO_HANDLE(x) ((HANDLE)win32_get_osfhandle (x)) |
238 | # define S_TO_HANDLE(x) ((HANDLE)win32_get_osfhandle (x)) |
239 | #else |
239 | #else |
240 | # define S_TO_HANDLE(x) ((HANDLE)x) |
240 | # define S_TO_HANDLE(x) ((HANDLE)x) |
241 | #endif |
241 | #endif |
242 | |
242 | |
… | |
… | |
304 | || addr.sin_port != adr2.sin_port) |
304 | || addr.sin_port != adr2.sin_port) |
305 | goto fail; |
305 | goto fail; |
306 | |
306 | |
307 | closesocket (listener); |
307 | closesocket (listener); |
308 | |
308 | |
309 | #ifdef USE_SOCKETS_AS_HANDLES |
309 | #if defined(USE_SOCKETS_AS_HANDLES) || PERL_VERSION_ATLEAST(5,18,0) |
310 | /* when select isn't winsocket, we also expect socket, connect, accept etc. |
310 | /* when select isn't winsocket, we also expect socket, connect, accept etc. |
311 | * to work on fds */ |
311 | * to work on fds */ |
312 | filedes [0] = sock [0]; |
312 | filedes [0] = sock [0]; |
313 | filedes [1] = sock [1]; |
313 | filedes [1] = sock [1]; |
314 | #else |
314 | #else |