t/general/pod-parser.t

38 open(my $input, '>', $infile) or BAIL_OUT("cannot create $infile: $!");
40   or BAIL_OUT("cannot write to $infile: $!");
41 close($input) or BAIL_OUT("cannot write to $infile: $!");
47 open(my $output, '>', $outfile) or BAIL_OUT("cannot open $outfile: $!");
49 close($output) or BAIL_OUT("cannot write to $outfile: $!");
58 open($output, '>', $outfile) or BAIL_OUT("cannot open $outfile: $!");
60 close($output) or BAIL_OUT("cannot write to $outfile: $!");
67 open($input, '>', $infile) or BAIL_OUT("cannot create $infile: $!");
69   or BAIL_OUT("cannot write to $infile: $!");
70 close($input) or BAIL_OUT("cannot write to $infile: $!");
74 open($output,         '>',  $outfile) or BAIL_OUT("cannot open $outfile: $!");
75 open(my $save_stdout, '>&', STDOUT)   or BAIL_OUT("cannot dup stdout: $!");
76 open(STDOUT, '>&', $output) or BAIL_OUT("cannot redirect stdout: $!");
78 close($output) or BAIL_OUT("cannot write to $outfile: $!");
79 open(STDOUT, '>&', $save_stdout) or BAIL_OUT("cannot fix stdout: $!");
80 close($save_stdout) or BAIL_OUT("cannot close saved stdout: $!");