From 78f9f922804cab72776fd44f9fdc8ee973dff61e Mon Sep 17 00:00:00 2001
From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 7 Sep 1996 23:49:09 +0000
Subject: 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.
---
 lib/open3.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/open3.pl')

diff --git a/lib/open3.pl b/lib/open3.pl
index 03e151c2d6..8b3917a851 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));
-- 
cgit v1.2.1