Get $srcdir from first parameter instead of hardcoding it.

(main): Update usage.

diff --git a/tests/mk-script b/tests/mk-script
index a004bb1cb54b1d3edb6b13b72a65f29973d6f86a..aef808a1c312cdba7c0d0ea94e527ff698578549 100755 (executable)
--- a/tests/mk-script
+++ b/tests/mk-script
@@ -15,7 +15,7 @@ use POSIX qw (assert);
 BEGIN { push @INC, '.' if '.' ne '.'; }
 use Test;
 
-my $srcdir = '.';
+my $srcdir = shift;
 
 sub validate
 {
@@ -170,7 +170,7 @@ sub wrap
 {
   $| = 1;
 
-  die "Usage: $0: program-name\n" if @ARGV != 1;
+  die "Usage: $0: srcdir program-name\n" if @ARGV != 1;
 
   my $xx = $ARGV[0];