Wrong way to get stdio mode used.

p4raw-id: //depot/perlio@13080

diff --git a/perlio.c b/perlio.c
index 5584d64..7c16e43 100644 (file)
--- 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