Help for this page

Select Code to Download

Select or download this

    sub close_child_io () {
      Debug "SigCHLD: close iopair[1]";
...
      close($tmp);
      $SIG{PIPE}='DEFAULT';
    };

Select or download this

|2588     local * write_child = sub ($) {
|2589       my $out=$_[0];
...
|2601       open(STDERR, ">&OLDERR") or die "Can't restore stderr: $!"
+;
|2602       $SIG{PIPE}='DEFAULT';
|2603     };