From bdf06b60603b3ed13a75aa23787a22c461ee8b97 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sun, 12 Aug 2001 17:37:18 +0000
Subject: ($program_name): Define. (main): Use $program_name, rather than
 long-inaccurate `build-script'.

---
 tests/mk-script | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'tests/mk-script')

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";;
-- 
cgit v1.2.3-54-g00ecf