| … | |
… | |
| 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 |
