perl 5.003_05: lib/open3.pl
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Sat, 7 Sep 1996 23:49:09 +0000 (23:49 +0000)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Sat, 7 Sep 1996 23:49:09 +0000 (23:49 +0000)
The I/O directions on the dad_wtr and kid_rdr were backwards.
IO/Open3.pm didn't have this error.

lib/open3.pl

index 03e151c..8b3917a 100644 (file)
@@ -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));