diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-28 23:17:20 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-28 23:17:20 +0000 |
commit | a5936e02e328fcaa28fdb01e8a749a151ee539cf (patch) | |
tree | abeb1b429bf6b15d2b3c4f4b4f619c036bf0883d /perlio.c | |
parent | e2c38acd50687b4f8312524543d05a81d8096797 (diff) | |
download | perl-a5936e02e328fcaa28fdb01e8a749a151ee539cf.tar.gz |
Workaround for DJGPP broken F_GETFL from Laszlo.
p4raw-id: //depot/perl@14485
Diffstat (limited to 'perlio.c')
-rw-r--r-- | perlio.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -187,6 +187,9 @@ PerlIO_fdupopen(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags) if (fd >= 0) { char mode[8]; int omode = fcntl(fd, F_GETFL); +#ifdef DJGPP + omode = djgpp_get_stream_mode(f); +#endif PerlIO_intmode2str(omode,mode,NULL); /* the r+ is a hack */ return PerlIO_fdopen(fd, mode); |