WinCE tweaks from Vadim Konovalov.

[perl5.git] / perlio.c

diff --git a/perlio.c b/perlio.c
index 9cb12d0..1cd8bab 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -2768,6 +2768,10 @@ PerlIOStdio_invalidate_fileno(pTHX_ FILE *f)
 #  elif defined(WIN32)
 #    if defined(__BORLANDC__)
     f->fd = PerlLIO_dup(fileno(f));
+#    elif defined(UNDER_CE)
+    /* WIN_CE does not have access to FILE internals, it hardly has FILE
+       structure at all
+     */
 #    else
     f->_file = -1;
 #    endif