diff options
-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";; |