[perl #27986] IPC::Open3 fails in mod_perl (tie bug)

   From: "Benjamin J. Tilly" (via RT) <perlbug-followup@perl.org>
   Message-ID: <rt-3.0.8-27986-82842.3.55447645581215@perl.org>

   The forked child should make sure STDIN and STDOUT aren't tied
   before messing with them

p4raw-id: //depot/perl@22609

diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm
index fd47e8e..8636c33 100644 (file)
--- a/lib/IPC/Open3.pm
+++ b/lib/IPC/Open3.pm
@@ -197,6 +197,9 @@ sub _open3 {
 
     $kidpid = $do_spawn ? -1 : xfork;
     if ($kidpid == 0) {                # Kid
+       # A tie in the parent should not be allowed to cause problems.
+       untie *STDIN;
+       untie *STDOUT;
        # If she wants to dup the kid's stderr onto her stdout I need to
        # save a copy of her stdout before I put something else there.
        if ($dad_rdr ne $dad_err && $dup_err