.

diff --git a/tests/tr/build-script.pl b/tests/tr/build-script.pl
index 7d8e13581f717153c5fb1981fe8d81d4b8de6d3d..14671587a0368b762ce309b09b3c697aa2a5ca75 100755 (executable)
--- a/tests/tr/build-script.pl
+++ b/tests/tr/build-script.pl
@@ -37,11 +37,10 @@ while (<>)
     my $exp_name = 't' . $test_name . '.exp';
     my $out = "t$test_name.out";
 
-    open(IN, ">$in") || die "Couldn't open $in for writing.\n";
+    open(IN, ">$in") || die "$0: $in: $!\n";
     print IN $input;
     close(IN);
-    open(EXP, ">$exp_name")
-       || die "Couldn't open $exp_name for writing.\n";
+    open(EXP, ">$exp_name") || die "$0: $in: $!\n";
     print EXP $expected;
     close(EXP);
     my $arg2 = ($s2 ? " '$s2'" : '');
@@ -73,6 +72,6 @@ if test \$errors = 0 ; then
 else
   \$echo Failed \$errors tests. 1>&2
 fi
-test \$errors = 0 || $errors=1
+test \$errors = 0 || errors=1
 exit \$errors
 EOF2