X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/fc917fff56ad22b214333cf476db5f79abafd3a9..a2c6bb3c2ea3dd75c5b5617ba65ba208f7ff1079:/perlio.c

diff --git a/perlio.c b/perlio.c
index ba934ff..d32aed0 100644
--- a/perlio.c
+++ b/perlio.c
@@ -3231,13 +3231,7 @@ PerlIOStdio_invalidate_fileno(pTHX_ FILE *f)
     f->_file = -1;
     return 1;
 #  elif defined(WIN32)
-#    if defined(UNDER_CE)
-    /* WIN_CE does not have access to FILE internals, it hardly has FILE
-       structure at all
-     */
-#    else
     PERLIO_FILE_file(f) = -1;
-#    endif
     return 1;
 #  else
 #if 0
@@ -4825,7 +4819,7 @@ PerlIOCrlf_binmode(pTHX_ PerlIO *f)
 	PerlIO_pop(aTHX_ f);
 #endif
     }
-    return 0;
+    return PerlIOBase_binmode(aTHX_ f);
 }
 
 PERLIO_FUNCS_DECL(PerlIO_crlf) = {