diff options
| -rwxr-xr-x | tests/tr/build-script.pl | 7 |
1 files 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 |