This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Wrong way to get stdio mode used.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 18 Nov 2001 19:05:02 +0000 (19:05 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 18 Nov 2001 19:05:02 +0000 (19:05 +0000)
p4raw-id: //depot/perlio@13080

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