From 569c3b26a6483ad901b03e711978333947d5571f Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sat, 18 Oct 2003 06:38:31 +0000
Subject: [PATCH] Get $srcdir from first parameter instead of hardcoding it.
 (main): Update usage.

---
 tests/mk-script | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/mk-script b/tests/mk-script
index a004bb1..aef808a 100755
--- 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];
 
-- 
2.7.4