From: Jan Dubois <jand@activestate.com>
Date: Wed, 22 Oct 2003 20:33:54 +0000 (-0700)
Subject: dup2() not going through PerlLIO abstraction layer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=943bbd07da3f5ac028f0431edcea22c215ffe800;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 		}