($program_name): Define.

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

1 files changed, 3 insertions, 1 deletions

diff --git a/tests/mk-script b/tests/mk-script
index 6b055b55f..a0fab2c90 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";;