From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 7 Sep 1996 23:49:09 +0000 (+0000)
Subject: perl 5.003_05: lib/open3.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78f9f922804cab72776fd44f9fdc8ee973dff61e;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003_05: lib/open3.pl

The I/O directions on the dad_wtr and kid_rdr were backwards.
IO/Open3.pm didn't have this error.
---

diff --git a/lib/open3.pl b/lib/open3.pl
index 03e151c..8b3917a 100644
--- a/lib/open3.pl
+++ b/lib/open3.pl
@@ -68,10 +68,10 @@ sub main'open3 {
         die "open2: fork failed: $!";
     } elsif ($kidpid == 0) {
 	if ($dup_wtr) {
-	    open(STDIN,  ">&$dad_wtr") if (fileno(STDIN) != fileno($dad_wtr));
+	    open(STDIN,  "<&$dad_wtr") if (fileno(STDIN) != fileno($dad_wtr));
 	} else {
 	    close($dad_wtr);
-	    open(STDIN,  ">&$kid_rdr");
+	    open(STDIN,  "<&$kid_rdr");
 	}
 	if ($dup_rdr) {
 	    open(STDOUT, ">&$dad_rdr") if (fileno(STDOUT) != fileno($dad_rdr));