Integrate the PerlCE (WinCE Perl) port;

kindly supplied by Rainer Keuchel <rkeuc@allgeier.com>.

p4raw-id: //depot/perl@11549

1 files changed, 1 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index 093cc8a123..e1730c8ac3 100644
--- a/perlio.c
+++ b/perlio.c
@@ -771,7 +771,7 @@ PerlIO_default_layers(pTHX)
    PerlIO_funcs *osLayer = &PerlIO_unix;
    PerlIO_def_layerlist  = PerlIO_list_alloc();
    PerlIO_define_layer(aTHX_ &PerlIO_unix);
-#ifdef WIN32
+#if defined(WIN32) && !defined(UNDER_CE)
    PerlIO_define_layer(aTHX_ &PerlIO_win32);
 #if 0
    osLayer = &PerlIO_win32;