diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-28 22:40:59 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-28 22:40:59 +0000 |
| commit | a4d3c1d3a59a079ee84191d2df8b5e232a8bee44 (patch) | |
| tree | 9a909a98221a3c1449c92958f4ce1f8669f862dd /iperlsys.h | |
| parent | 64a43b1bf5784b87b3344325bfec6234d7e725b4 (diff) | |
| download | perl-a4d3c1d3a59a079ee84191d2df8b5e232a8bee44.tar.gz | |
Initial tidy of setmode() muddle (UNIX does not have, nor need it).
p4raw-id: //depot/perlio@7906
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h index 9bf7387ba8..206cf8ebe6 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -667,7 +667,12 @@ struct IPerlLIOInfo #define PerlLIO_open3(file, flag, perm) open((file), (flag), (perm)) #define PerlLIO_read(fd, buf, count) read((fd), (buf), (count)) #define PerlLIO_rename(old, new) rename((old), (new)) +#if O_BINARY != O_TEXT #define PerlLIO_setmode(fd, mode) setmode((fd), (mode)) +#else +/* Until we have a "host" on UNIX to supply a stub #define it out */ +#define PerlLIO_setmode(fd, mode) 0 +#endif #define PerlLIO_tmpnam(str) tmpnam((str)) #define PerlLIO_umask(mode) umask((mode)) #define PerlLIO_unlink(file) unlink((file)) |