Win32 builds and mostly works for non-USE_PERLIO non-USE_IMP_SYS case.

 - move body of fdupopen() from perlhost.h to win32.h as win32_fdupopen()
 - use it in perlio.c

p4raw-id: //depot/perlio@16349

1 files changed, 4 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index 57c70410e7..bcfa2568e2 100644
--- a/perlio.c
+++ b/perlio.c
@@ -192,6 +192,9 @@ PerlIO_fdupopen(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags)
 #ifdef PERL_IMPLICIT_SYS
     return PerlSIO_fdupopen(f); 
 #else
+#ifdef WIN32
+    return win32_fdupopen(f);
+#else
     if (f) {
 	int fd = PerlLIO_dup(PerlIO_fileno(f));
 	if (fd >= 0) {
@@ -212,6 +215,7 @@ PerlIO_fdupopen(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags)
 #endif
     return NULL;
 #endif
+#endif
 }