diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-10-29 06:00:18 -0800 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-11-02 18:22:16 +0000 |
| commit | 839f2d996f8dceb7c802bf5113f02969658cc09d (patch) | |
| tree | 31cbe92fcf6d4df0a555139b93ead70dafd6824d /perlio.c | |
| parent | fd6da1dbe61cf51051553761cbf265ad20ec281a (diff) | |
| download | perl-839f2d996f8dceb7c802bf5113f02969658cc09d.tar.gz | |
OS/2 build
Message-ID: <20031029220017.GA26384@math.berkeley.edu>
p4raw-id: //depot/perl@21620
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -2875,6 +2875,10 @@ PerlIOStdio_invalidate_fileno(pTHX_ FILE *f) */ f->_file = -1; return 1; +# elif defined(__EMX__) + /* f->_flags &= ~_IOOPEN; */ /* Will leak stream->_buffer */ + f->_handle = -1; + return 1; # elif defined(__CYGWIN__) /* There may be a better way on CYGWIN: - we could insert a dummy func in the _close function entry |