diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2002-04-01 19:37:08 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-02 15:05:58 +0000 |
| commit | 23b847786cf7d86c6da9c7a772a1aef6918eee65 (patch) | |
| tree | 958280d566e8bbe4db873d1780b4db2f87fa5b9c /os2/os2ish.h | |
| parent | bf15e14c329c58d53cd425c0a506d27028d00e38 (diff) | |
| download | perl-23b847786cf7d86c6da9c7a772a1aef6918eee65.tar.gz | |
ASCII vs BINARY on OS/2 in perlio
Message-ID: <20020402003708.A8648@math.ohio-state.edu>
p4raw-id: //depot/perl@15682
Diffstat (limited to 'os2/os2ish.h')
| -rw-r--r-- | os2/os2ish.h | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/os2/os2ish.h b/os2/os2ish.h index d1c45ad86a..360da42aef 100644 --- a/os2/os2ish.h +++ b/os2/os2ish.h @@ -370,6 +370,16 @@ void *emx_realloc (void *, size_t); ? (--FILE_ptr(fp), ++FILE_cnt(fp), (int)c) : ungetc(c,fp)) #endif +#define PERLIO_IS_BINMODE_FD(fd) _PERLIO_IS_BINMODE_FD(fd) + +static inline bool +_PERLIO_IS_BINMODE_FD(int fd) +{ + int *pflags = _fd_flags(fd); + + return pflags && (*pflags) & O_BINARY; +} + /* ctermid is missing from emx0.9d */ char *ctermid(char *s); |