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 | 000fffcfc93c4a2619a7d36c134c1692b1e9c390 (patch) | |
| tree | c1926762f5ff91cd87c4dc39b6b727bf215d88ab /doio.c | |
| parent | 0c357a4b9c9d95774d2a9a0aea37581479b71e46 (diff) | |
| download | perl-000fffcfc93c4a2619a7d36c134c1692b1e9c390.tar.gz | |
microperl sync.
p4raw-id: //depot/perl@12826
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -495,6 +495,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, (void)PerlIO_close(fp); goto say_false; } +#ifndef PERL_MICRO if (S_ISSOCK(PL_statbuf.st_mode)) IoTYPE(io) = IoTYPE_SOCKET; /* in case a socket was passed in to us */ #ifdef HAS_SOCKET @@ -515,6 +516,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, IoTYPE(io) = IoTYPE_SOCKET; /* some OS's return 0 on fstat()ed socket */ /* but some return 0 for streams too, sigh */ } +#endif /* !PERL_MICRO */ #endif } if (saveifp) { /* must use old fp? */ |