1
0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-04-12 23:08:17 +02:00

Die if close fails.

This commit is contained in:
Jim Meyering
1996-09-30 02:39:46 +00:00
parent d96a2d9e14
commit ccf556a616

View File

@@ -42,10 +42,10 @@ foreach $test_vector (@Test::t)
open (IN, ">$in") || die "$0: $in: $!\n";
print IN $input;
close (IN);
close (IN) || die "$0: $in: $!\n";
open (EXP, ">$exp_name") || die "$0: $in: $!\n";
print EXP $expected;
close (EXP);
close (EXP) || die "$0: $exp_name: $!\n";
my $err_output = "t$test_name.err";
my $cmd = "\$xx $flags \$srcdir/$in > $out 2> $err_output";