X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fwin32sck.c;h=3edeefd6898d8b16467b230eee5d85c45a8053d4;hb=67597c89125e7e144f9ba60f5b1fe23b951286d8;hp=d169db6d9ecbab8c74bc78acaf8a31e9bfa51e35;hpb=ed59ec62717f0f88ed3d32dff6bf15dd59269b91;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/win32sck.c b/win32/win32sck.c
index d169db6..3edeefd 100644
--- a/win32/win32sck.c
+++ b/win32/win32sck.c
@@ -508,7 +508,11 @@ my_fstat(int fd, struct stat *sbufptr)
 
 	retval = getsockopt((SOCKET)osf, SOL_SOCKET, SO_TYPE, sockbuf, &optlen);
 	if (retval != SOCKET_ERROR || WSAGetLastError() != WSAENOTSOCK) {
+#if defined(__BORLANDC__)&&(__BORLANDC__<=0x520)
+	    sbufptr->st_mode = S_IFIFO;
+#else
 	    sbufptr->st_mode = _S_IFIFO;
+#endif
 	    sbufptr->st_rdev = sbufptr->st_dev = (dev_t)fd;
 	    sbufptr->st_nlink = 1;
 	    sbufptr->st_uid = sbufptr->st_gid = sbufptr->st_ino = 0;