view release on metacpan or  search on metacpan

t/006.t  view on Meta::CPAN

             '$fds[0] can socktype()';
  cmp_deeply t_cat($fds[1]), 'content2', 'reverse: second fd';
  cmp_deeply t_cat($fds[2]), 'content1', 'reverse: third fd';
  cmp_deeply [map ref, @fds], [qw/IO::Socket::UNIX IO::File IO::File/],
             'handle types';
  @fds=();
  close $c; undef $c;
  undef $p->received_fds;	# closes received fds

 SKIP: {
    skip "Peer credentials are supported on Linux only", 1
      unless( $^O=~/linux/i );
    cmp_deeply [$p->peercred], [$$, $>, ($)=~/(\d+)/)[0]], 'peer credentials';
  }
} else {
  @to_be_deleted=();
  close $p; undef $p;

  my @l=$c->read_record;

  $c->fds_to_send=[map( {open my($fd), $_; $fd} @l ),
		   do{open my $fd, '>', '/dev/null'; $fd}];
  $c->write_record( \@l );