From: Jim Meyering <jim@meyering.net>
Date: Mon, 30 Sep 1996 02:39:46 +0000 (+0000)
Subject: Die if close fails.
X-Git-Tag: TEXTUTILS-1_19h~6
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ccf556a616bef9134db4c22e2d94bd8b3dfeca71;p=thirdparty%2Fcoreutils.git

Die if close fails.
---

diff --git a/tests/sort/build-script.pl b/tests/sort/build-script.pl
index 11db4eada0..d7474f5a94 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";