From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 16 Jun 2001 18:38:31 +0000 (+0000)
Subject: Disable :win32 layer as default till I get it working
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f8118af5e6ae8b76fdc332011717931c71acde6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);