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 /doio.c | |
| parent | d02ee443a95f37e809897c7b362de209cac4b522 (diff) | |
| download | perl-7114a2d26db82c459c722352adf0625e3ae9f42d.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? */ |