This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Changes USE_THREADS to USE_5005THREADS in the entire source.
[perl5.git] / win32 / win32sck.c
index 3edeefd..bdc335f 100644 (file)
@@ -40,7 +40,7 @@
 #      define TO_SOCKET(x)     (x)
 #endif /* USE_SOCKETS_AS_HANDLES */
 
-#if defined(USE_THREADS) || defined(USE_ITHREADS)
+#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
 #define StartSockets() \
     STMT_START {                                       \
        if (!wsock_started)                             \
@@ -105,7 +105,7 @@ void
 set_socktype(void)
 {
 #ifdef USE_SOCKETS_AS_HANDLES
-#if defined(USE_THREADS) || defined(USE_ITHREADS)
+#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
     dTHXo;
     if (!w32_init_socktype) {
 #endif
@@ -115,7 +115,7 @@ set_socktype(void)
         */
        setsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE,
                    (char *)&iSockOpt, sizeof(iSockOpt));
-#if defined(USE_THREADS) || defined(USE_ITHREADS)
+#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
        w32_init_socktype = 1;
     }
 #endif