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 (file)
--- 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));