Now allows specification of a start directory on the cmdline.

This commit is contained in:
Marcus Meissner 1998-10-31 12:07:21 +00:00 committed by Alexandre Julliard
parent d09136f0ce
commit 0e62bbac28
1 changed files with 5 additions and 1 deletions

View File

@ -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);