From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 18 Nov 2001 19:05:02 +0000 (+0000)
Subject: Wrong way to get stdio mode used.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=293ed4d2d77af94fb636abf7295b5e2dd98c1695;p=p5sagit%2Fp5-mst-13.2.git

Wrong way to get stdio mode used.

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

diff --git a/perlio.c b/perlio.c
index 5584d64..7c16e43 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2496,9 +2496,7 @@ PerlIOStdio_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags)
 	    int fd = PerlLIO_dup(fileno(stdio));
 	    if (fd >= 0) {
 		char mode[8];
-		int omode = fcntl(fd, F_GETFL);
-		PerlIO_intmode2str(omode,mode,NULL);
-		stdio = fdopen(fd, mode);
+		stdio = fdopen(fd, PerlIO_modestr(o,mode));
 	    }
 	    else {
 		/* FIXME: To avoid messy error recovery if dup fails