diff options
Diffstat (limited to 'win32/win32sck.c')
| -rw-r--r-- | win32/win32sck.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/win32/win32sck.c b/win32/win32sck.c index 0e2be309bd..58b13e0580 100644 --- a/win32/win32sck.c +++ b/win32/win32sck.c @@ -398,10 +398,15 @@ convert_proto_info_w2a(WSAPROTOCOL_INFOW *in, WSAPROTOCOL_INFOA *out) SOCKET open_ifs_socket(int af, int type, int protocol) { + dTHX; + char *s; unsigned long proto_buffers_len = 0; int error_code; SOCKET out = INVALID_SOCKET; + if ((s = PerlEnv_getenv("PERL_ALLOW_NON_IFS_LSP")) && atoi(s)) + return WSASocket(af, type, protocol, NULL, 0, 0); + if (WSCEnumProtocols(NULL, NULL, &proto_buffers_len, &error_code) == SOCKET_ERROR && error_code == WSAENOBUFS) { |