From 0e62bbac28aaa6cbeb669d86782b7f2361bfca29 Mon Sep 17 00:00:00 2001
From: Marcus Meissner <marcus@jet.franken.de>
Date: Sat, 31 Oct 1998 12:07:21 +0000
Subject: [PATCH] Now allows specification of a start directory on the cmdline.

---
 tools/testrun | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tools/testrun b/tools/testrun
index 665cbe2e7f7..dd6304381a1 100755
--- a/tools/testrun
+++ b/tools/testrun
@@ -203,7 +203,11 @@ $SIG{'ALRM'} = "alarmhandler";
 # mounted that's not on campus or add relevant ! -fstype nfs or similar.
 #
 
-open(FIND,"find / -type f  \\( -name \"*.EXE\" -o -name \"*.exe\" -o -name \"*.scr\" -o -name \"*.SCR\" \\) -print|");
+$startdir = '/';
+
+$startdir = $ARGV[0] if ($ARGV[0] && (-d $ARGV[0]));
+
+open(FIND,"find $startdir -type f  \\( -name \"*.EXE\" -o -name \"*.exe\" -o -name \"*.scr\" -o -name \"*.SCR\" \\) -print|");
 while ($exe=<FIND>) {
 	chop($exe);
 
-- 
2.11.4.GIT