diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2011-09-10 17:21:58 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2011-09-10 18:16:59 +0100 |
| commit | 378eeda70cc27194f0f718b4c65b8ba147259910 (patch) | |
| tree | 26c3c6b5adb9c5027a78c6143cdced30ce57a9d4 /win32/perlhost.h | |
| parent | 528bd3ce854c33aaf668dd3aa007a60a4994edac (diff) | |
| download | perl-378eeda70cc27194f0f718b4c65b8ba147259910.tar.gz | |
The Borland Chainsaw Massacre
Remove support for the Borland C++ compiler on Win32, as agreed here:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2011-09/msg00034.html
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 677da4d3e5..02ecf109a1 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -840,21 +840,6 @@ PerlStdIOFdupopen(struct IPerlStdIO* piPerl, FILE* pf) int fileno = win32_dup(win32_fileno(pf)); /* open the file in the same mode */ -#ifdef __BORLANDC__ - if((pf)->flags & _F_READ) { - mode[0] = 'r'; - mode[1] = 0; - } - else if((pf)->flags & _F_WRIT) { - mode[0] = 'a'; - mode[1] = 0; - } - else if((pf)->flags & _F_RDWR) { - mode[0] = 'r'; - mode[1] = '+'; - mode[2] = 0; - } -#else if((pf)->_flag & _IOREAD) { mode[0] = 'r'; mode[1] = 0; @@ -868,7 +853,6 @@ PerlStdIOFdupopen(struct IPerlStdIO* piPerl, FILE* pf) mode[1] = '+'; mode[2] = 0; } -#endif /* it appears that the binmode is attached to the * file descriptor so binmode files will be handled |