From 2f8118af5e6ae8b76fdc332011717931c71acde6 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Sat, 16 Jun 2001 18:38:31 +0000 Subject: Disable :win32 layer as default till I get it working p4raw-id: //depot/perlio@10640 --- perlio.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perlio.c') 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); -- cgit v1.2.1