From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Thu, 2 May 2002 15:19:20 +0000 (+0000)
Subject: Use PerlSIO_fdupopen() if not using PerlIO
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0553478ef48e094f904ff993d3c57b7325174272;p=p5sagit%2Fp5-mst-13.2.git

Use PerlSIO_fdupopen() if not using PerlIO

p4raw-id: //depot/perlio@16346
---

diff --git a/perlio.c b/perlio.c
index e80c1f0..57c7041 100644
--- a/perlio.c
+++ b/perlio.c
@@ -186,7 +186,12 @@ PerlIO_binmode(pTHX_ PerlIO *fp, int iotype, int mode, const char *names)
 PerlIO *
 PerlIO_fdupopen(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags)
 {
-#ifndef PERL_MICRO
+#ifdef PERL_MICRO
+    return NULL;
+#else
+#ifdef PERL_IMPLICIT_SYS
+    return PerlSIO_fdupopen(f); 
+#else
     if (f) {
 	int fd = PerlLIO_dup(PerlIO_fileno(f));
 	if (fd >= 0) {
@@ -206,6 +211,7 @@ PerlIO_fdupopen(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags)
     }
 #endif
     return NULL;
+#endif
 }