From 1a038cb55e587b7e46a2a55acec43e340fef2d6a Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Mon, 5 Aug 1996 03:49:29 +0000
Subject: [PATCH] .

---
 tests/tr/build-script.pl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tests/tr/build-script.pl b/tests/tr/build-script.pl
index 7d8e13581..14671587a 100755
--- 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
-- 
2.11.4.GIT