… | |
… | |
82 | goto fail; |
82 | goto fail; |
83 | |
83 | |
84 | if ((sock [1] = accept (listener, 0, 0)) < 0) |
84 | if ((sock [1] = accept (listener, 0, 0)) < 0) |
85 | goto fail; |
85 | goto fail; |
86 | |
86 | |
87 | /* windows vista returns fantasy port numbers for getpeername. |
87 | /* windows vista returns fantasy port numbers for sockets: |
88 | * example for two interconnected tcp sockets: |
88 | * example for two interconnected tcp sockets: |
89 | * |
89 | * |
90 | * (Socket::unpack_sockaddr_in getsockname $sock0)[0] == 53364 |
90 | * (Socket::unpack_sockaddr_in getsockname $sock0)[0] == 53364 |
91 | * (Socket::unpack_sockaddr_in getpeername $sock0)[0] == 53363 |
91 | * (Socket::unpack_sockaddr_in getpeername $sock0)[0] == 53363 |
92 | * (Socket::unpack_sockaddr_in getsockname $sock1)[0] == 53363 |
92 | * (Socket::unpack_sockaddr_in getsockname $sock1)[0] == 53363 |