X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fwin32sck.c;h=3b81d8bcae73833b44af7c62eae32caef0890162;hb=9114b07188664b459df71eeae70be5619f29b102;hp=594a2e3099f02d89b530592a2c2430fc0b1b7079;hpb=a10b7b7eee64efea010bfdba91243503341ba68d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/win32sck.c b/win32/win32sck.c
index 594a2e3..3b81d8b 100644
--- 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;
 	}