1 files changed, 4 insertions, 4 deletions
diff --git a/perlio.c b/perlio.c
index a3da82e92a..c9b7f72067 100644
--- 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);