From ccf556a616bef9134db4c22e2d94bd8b3dfeca71 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Mon, 30 Sep 1996 02:39:46 +0000 Subject: Die if close fails. --- tests/sort/build-script.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/sort') diff --git a/tests/sort/build-script.pl b/tests/sort/build-script.pl index 11db4eada..d7474f5a9 100644 --- a/tests/sort/build-script.pl +++ b/tests/sort/build-script.pl @@ -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"; -- cgit v1.2.3-70-g09d2