diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2001-03-29 05:50:12 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-29 00:49:30 +0000 |
| commit | 24c02676028cab802cb347f1affa7f30893cac1c (patch) | |
| tree | 0622e9d5ccea917d38db50a17a90c44d90bb2208 /win32/win32sck.c | |
| parent | 86d4dbc9c4134095ef25802b7bcdbbfbd4909aa0 (diff) | |
| download | perl-24c02676028cab802cb347f1affa7f30893cac1c.tar.gz | |
Borland C++ for Win32 fixes; perl@9359 (also perl@9424)
Message-ID: <001c01c0b7d1$463dd880$5742983e@vad>
p4raw-id: //depot/perl@9427
Diffstat (limited to 'win32/win32sck.c')
| -rw-r--r-- | win32/win32sck.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/win32/win32sck.c b/win32/win32sck.c index d169db6d9e..3edeefd689 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; |