From: Jim Meyering <jim@meyering.net>
Date: Sun, 12 Aug 2001 17:37:18 +0000 (+0000)
Subject: ($program_name): Define.
X-Git-Tag: TEXTUTILS-2_0_15~450
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=bdf06b60603b3ed13a75aa23787a22c461ee8b97;p=thirdparty%2Fcoreutils.git

($program_name): Define.
(main): Use $program_name, rather than long-inaccurate `build-script'.
---

diff --git a/tests/mk-script b/tests/mk-script
index 6b055b55fb..a0fab2c909 100755
--- a/tests/mk-script
+++ b/tests/mk-script
@@ -10,6 +10,8 @@ require 5.002;
 use strict;
 use POSIX qw (assert);
 
+(my $program_name = $0) =~ s|.*/||;
+
 BEGIN { push @INC, '.' if '.' ne '.'; }
 use Test;
 
@@ -214,7 +216,7 @@ sub wrap
 
   print <<EOF1;
 #! /bin/sh
-# This script was generated automatically by build-script.
+# This script was generated automatically by $program_name.
 case \$# in
   0\) xx='$xx';;
   *\) xx="\$1";;