From: Jim Meyering <jim@meyering.net>
Date: Thu, 10 Jul 1997 15:56:33 +0000 (+0000)
Subject: Include $0 in `wrong number of elements...' message.
X-Git-Tag: SH-UTILS-1_16c~53
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=990c0d0fad71019b1a18c15c2ff85433cb282b42;p=thirdparty%2Fcoreutils.git

Include $0 in `wrong number of elements...' message.
---

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index 34282f7eb2..6445195097 100644
--- a/tests/cut/mk-script.pl
+++ b/tests/cut/mk-script.pl
@@ -24,7 +24,7 @@ sub validate
     {
       my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
 	@$test_vector;
-      die "wrong number of elements in test $test_name\n"
+      die "$0: wrong number of elements in test $test_name\n"
 	if (!defined $e_ret_code || defined $rest);
       assert (!ref $test_name);
       assert (!ref $flags);
diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index 34282f7eb2..6445195097 100644
--- a/tests/head/mk-script.pl
+++ b/tests/head/mk-script.pl
@@ -24,7 +24,7 @@ sub validate
     {
       my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
 	@$test_vector;
-      die "wrong number of elements in test $test_name\n"
+      die "$0: wrong number of elements in test $test_name\n"
 	if (!defined $e_ret_code || defined $rest);
       assert (!ref $test_name);
       assert (!ref $flags);
diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index 34282f7eb2..6445195097 100644
--- a/tests/join/mk-script.pl
+++ b/tests/join/mk-script.pl
@@ -24,7 +24,7 @@ sub validate
     {
       my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
 	@$test_vector;
-      die "wrong number of elements in test $test_name\n"
+      die "$0: wrong number of elements in test $test_name\n"
 	if (!defined $e_ret_code || defined $rest);
       assert (!ref $test_name);
       assert (!ref $flags);
diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index 34282f7eb2..6445195097 100644
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/mk-script.pl
@@ -24,7 +24,7 @@ sub validate
     {
       my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
 	@$test_vector;
-      die "wrong number of elements in test $test_name\n"
+      die "$0: wrong number of elements in test $test_name\n"
 	if (!defined $e_ret_code || defined $rest);
       assert (!ref $test_name);
       assert (!ref $flags);