From 293ed4d2d77af94fb636abf7295b5e2dd98c1695 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Sun, 18 Nov 2001 19:05:02 +0000 Subject: [PATCH] Wrong way to get stdio mode used. p4raw-id: //depot/perlio@13080 --- perlio.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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 -- 2.7.4