CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-08-05 00:07:51 +02:00
Code Issues Projects Releases Wiki Activity

Die if close fails.

Browse Source
This commit is contained in:
Jim Meyering
1996-09-30 02:43:22 +00:00
parent 99fe905035
commit 814dc35407
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/tr/build-script.pl
+4 -3
View File
@@ -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";