From b394529747e867386f7ddb80b602702ce0391a3f Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Mon, 30 Sep 1996 02:57:28 +0000
Subject: [PATCH] use exp_name in msg when open EXP fails.

---
 tests/sort/build-script.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/sort/build-script.pl b/tests/sort/build-script.pl
index d7474f5a94..7df033cbc0 100644
--- a/tests/sort/build-script.pl
+++ b/tests/sort/build-script.pl
@@ -43,7 +43,7 @@ foreach $test_vector (@Test::t)
     open (IN, ">$in") || die "$0: $in: $!\n";
     print IN $input;
     close (IN) || die "$0: $in: $!\n";
-    open (EXP, ">$exp_name") || die "$0: $in: $!\n";
+    open (EXP, ">$exp_name") || die "$0: $exp_name: $!\n";
     print EXP $expected;
     close (EXP) || die "$0: $exp_name: $!\n";
     my $err_output = "t$test_name.err";
-- 
2.47.2