From 814dc354076d7672f9e6744b4502144ea747bea4 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Mon, 30 Sep 1996 02:43:22 +0000 Subject: [PATCH] Die if close fails. --- tests/tr/build-script.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tests/tr/build-script.pl b/tests/tr/build-script.pl index 5017126d39..2c7656f37b 100755 --- a/tests/tr/build-script.pl +++ b/tests/tr/build-script.pl @@ -42,10 +42,11 @@ foreach $test_vector (@Test::t) open (IN, ">$in") || die "$0: $in: $!\n"; print IN $input; - close (IN); - open (EXP, ">$exp_name") || die "$0: $in: $!\n"; + close (IN) || die "$0: $in: $!\n"; + open (EXP, ">$exp_name") || die "$0: $exp_name: $!\n"; print EXP $expected; - close (EXP); + close (EXP) || die "$0: $exp_name: $!\n"; + my $err_output = "t$test_name.err"; my $arg2 = ($s2 ? " '$s2'" : ''); my $cmd = "\$xx $flags \'$s1\'$arg2 < \$srcdir/$in > $out 2> $err_output"; -- 2.47.2