dup2() not going through PerlLIO abstraction layer

Message-Id: <vniepv0n5mcrbbutm0qgvori6n6vr6arsh@4ax.com>

p4raw-id: //depot/perl@21522

diff --git a/doio.c b/doio.c
index e2dcad8..5ba40b9 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1548,7 +1548,7 @@ Perl_do_exec3(pTHX_ char *cmd, int fd, int do_report)
 
                while (*t && isSPACE(*t))
                    ++t;
-               if (!*t && (dup2(1,2) != -1)) {
+               if (!*t && (PerlLIO_dup2(1,2) != -1)) {
                    s[-2] = '\0';
                    break;
                }