tweak for change#7173

[p5sagit/p5-mst-13.2.git] / win32 / win32sck.c

diff --git a/win32/win32sck.c b/win32/win32sck.c
index 594a2e3..3b81d8b 100644 (file)
--- a/win32/win32sck.c
+++ b/win32/win32sck.c
@@ -431,7 +431,9 @@ my_fclose (FILE *pf)
        win32_fflush(pf);
        err = closesocket(osf);
        if (err == 0) {
+#if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX)
             _set_osfhnd(fileno(pf), INVALID_HANDLE_VALUE);
+#endif
            (void)fclose(pf);   /* handle already closed, ignore error */
            return 0;
        }