Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
IPC-Open2.t	1.63 KB	-r--r--r--	2014-12-27 11:48
IPC-Open3.t	4.97 KB	-r--r--r--	2014-12-27 11:49
fd.t	1 KB	-r--r--r--	2014-12-27 11:48

Rename

#!./perl -- # Perl Rules

BEGIN {
    if ($^O eq 'VMS') {
        print "1..0 # Skip: needs porting, perhaps imitating Win32 mechanisms\n";
	exit 0;
    }
    require "../../t/test.pl";
}
use strict;
use warnings;

plan 3;

my $file = 't/fd.t';

# [perl #76474]
{
  my $stderr = runperl(
     switches => ['-MIPC::Open3', '-w'],
     prog => "open STDIN, q _${file}_ or die \$!; open3(q _<&0_, my \$out, undef, \$ENV{PERLEXE}, q _-e0_)",
     stderr => 1,
  );

is $stderr, '',
   "dup STDOUT in a child process by using its file descriptor";
}

{
  my $want = qr{\A#!\./perl -- # Perl Rules\r?\z};
  open my $fh, '<', $file or die "Can't open $file: $!";
  my $have = <$fh>;
  chomp $have;
  like($have, $want, 'We can find our test string');
  close $fh;

fresh_perl_like(<<"EOP",
use IPC::Open3;
open FOO, '$file' or die \$!;
open3('<&' . fileno FOO, my \$out, undef, \$ENV{PERLEXE}, '-eprint scalar <STDIN>');
print <\$out>;
EOP
		  $want,
		  undef,
		  'Numeric file handles are duplicated correctly'
      );
}