t/run/cloexec.t

63 my $tmpfile2           = tempfile();
65 my $tmpfile2_contents  = "tmpfile2 line 1\ntmpfile2 line 2\n";
67 make_tmp_file($tmpfile2, $tmpfile2_contents);
85     ok( -f $tmpfile2, "tmpfile '$tmpfile2' exists" );
121 open FHPARENT2, "<$tmpfile2" or die "open '$tmpfile2': $!";
126 close FHPARENT2 or die "close '$tmpfile2': $!";
140 open FHPARENT2, "<$tmpfile2" or die "open '$tmpfile2': $!";
145 close FHPARENT2 or die "close '$tmpfile2': $!";
150 open FHPARENT2, "<$tmpfile2" or die "open '$tmpfile2': $!";
157 close FHPARENT2 or die "close '$tmpfile2': $!";