Select Code to Download

Select or download this

      pipe($iopair[0], $iopair[1]) or 
        die "Failed opening pipe in start_reader: $!";
      for (qw(0 1)) { select $iopair[$_]; $|=1;}    #unbuffer pipe I/O

Select or download this

    local * write_child = sub ($) {
      my $out=$_[0];
...
      P $iopair[1], $out."\n";
      $SIG{PIPE}='DEFAULT';
    };

Select or download this

    sub close_child_io () {
      Debug "SigCHLD: close iopair[1]";
...
      $PathTree::iopair[1] = undef;
      close($tmp);
    };

Select or download this

[#2576(PathTree::__ANON__)]Child closed
Warning: unable to close filehandle $iopair[...] properly: Broken pipe
+ at /Users/law.Bliss/bin/lib/P.pm line 509.

Select or download this
```
509:   unsee_ret($res);
510: }
```

Select or download this

    local * unsee_ret;
    * unsee_ret = sub ($) { 
      delete $p->{__P_seen} if exists $p->{__P_seen}; 
      $_[0] };

Select or download this

do {  delete $p->{__P_seen} if exists $p->{__P_seen}; 
      $res;};