diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-16 18:38:31 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-16 18:38:31 +0000 |
| commit | 2f8118af5e6ae8b76fdc332011717931c71acde6 (patch) | |
| tree | a090b70b74c2728c49ed3a26f1c65004fca61ae3 /perlio.c | |
| parent | 0c4128adc5f62cd332ae4fa5bc8999c95d611d36 (diff) | |
| download | perl-2f8118af5e6ae8b76fdc332011717931c71acde6.tar.gz | |
Disable :win32 layer as default till I get it working
p4raw-id: //depot/perlio@10640
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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); |