diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-02 23:56:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-02 23:56:00 +0000 |
| commit | 7114a2d26db82c459c722352adf0625e3ae9f42d (patch) | |
| tree | c1926762f5ff91cd87c4dc39b6b727bf215d88ab /perlio.c | |
| parent | d02ee443a95f37e809897c7b362de209cac4b522 (diff) | |
| download | perl-7114a2d26db82c459c722352adf0625e3ae9f42d.tar.gz | |
microperl sync.
p4raw-id: //depot/perl@12826
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -175,6 +175,7 @@ PerlIO_binmode(pTHX_ PerlIO *fp, int iotype, int mode, const char *names) PerlIO * PerlIO_fdupopen(pTHX_ PerlIO *f, CLONE_PARAMS *param) { +#ifndef PERL_MICRO if (f) { int fd = PerlLIO_dup(PerlIO_fileno(f)); if (fd >= 0) { @@ -189,6 +190,7 @@ PerlIO_fdupopen(pTHX_ PerlIO *f, CLONE_PARAMS *param) else { SETERRNO(EBADF, SS$_IVCHAN); } +#endif return NULL; } |