Disable :win32 layer as default till I get it working

p4raw-id: //depot/perlio@10640

diff --git a/MANIFEST b/MANIFEST
index e5f39df..f389417 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -2013,6 +2013,7 @@ win32/vmem.h              Perl "host" memory manager
 win32/win32.c          Win32 port
 win32/win32.h          Win32 port
 win32/win32iop.h       Win32 port
+win32/win32io.c                Win32 PerlIO layer support
 win32/win32sck.c       Win32 port
 win32/win32thread.c    Win32 functions for threads
 win32/win32thread.h    Win32 port mapping to threads

diff --git a/perlio.c b/perlio.c
index a3da82e..c9b7f72 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -766,13 +766,13 @@ PerlIO_default_layers(pTHX)
    const char *s  = (PL_tainting) ? Nullch : PerlEnv_getenv("PERLIO");
    PerlIO_funcs *osLayer = &PerlIO_unix;
    PerlIO_def_layerlist  = PerlIO_list_alloc();
+   PerlIO_define_layer(aTHX_ &PerlIO_unix);
 #ifdef WIN32
+   PerlIO_define_layer(aTHX_ &PerlIO_win32);
+#if 0
    osLayer = &PerlIO_win32;
-   PerlIO_define_layer(aTHX_ &PerlIO_unix);
-#else
-   osLayer = &PerlIO_unix;
 #endif
-   PerlIO_define_layer(aTHX_ osLayer);
+#endif
    PerlIO_define_layer(aTHX_ &PerlIO_raw);
    PerlIO_define_layer(aTHX_ &PerlIO_perlio);
    PerlIO_define_layer(aTHX_ &PerlIO_stdio);