diff options
author | Jim Meyering <jim@meyering.net> | 2001-08-12 17:37:18 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2001-08-12 17:37:18 +0000 |
commit | bdf06b60603b3ed13a75aa23787a22c461ee8b97 (patch) | |
tree | c314749f1334284bc70ebeec3712f1d8579bbfe1 /tests | |
parent | 105f26276998f7c42bc67b28d318a24e140bffae (diff) | |
download | coreutils-bdf06b60603b3ed13a75aa23787a22c461ee8b97.tar.xz |
($program_name): Define.
(main): Use $program_name, rather than long-inaccurate `build-script'.
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/mk-script | 4 |
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";; |